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Preface 


With the rapid advance of computer technology has come a substantial reduction 
in the price of computer hardware. In the coming years the price of peripheral 
devices will also tumble. This means that users with a limited budget, who 
previously had access only to the most elementary computing devices, will soon 
be able to afford the most sophisticated computers. They will also be able to 
escape from the limitation of tabular numerical output and buy microprocessor 
attachments for television monitors or inexpensive special-purpose colour 
grapnics devices. Sinclair computers have always led tne field in this respect. 
Software, however, does not appear to be getting cheaper. 

Because of the enormous capital expenditure required to set up graphical 
output in the past, both in machines and software, the subject of computer 
graphics has been the preserve of large research groups. This inaccessibility has 
led to a mystique growing up around the subject and it has achieved a false 
reputation for difficulty. This book is an attempt to lay the ghost of com- 
plexity; it will also show that complicated (and hence expensive) software 
packages, which are naturally of great value in research organisations, need not 
frighten away the average computer user. For most purposes these packages are 
unnecessary. This book, as well as being an introduction to computer graphics, 
may be considered a (very inexpensive) software package: it is a lot cheaper 
than commercially available packages! Naturally, because of this fundamental 
approach, users have to achieve a reasonable understanding of their graphics 
device before pictures, other than those provided, may be drawn. This need 
not be a disadvantage; the amount of groundwork required will be seen to be 
very limited. As a direct result, the knowledge of the user grows along with the 
package and he is far less likely to misinterpret any of the graphical routines. 
References are given and relevant further reading material is recommended in 
order to expand the reader’s horizons in the subject. 

It is assumed that the reader has an elementary knowledge of Cartesian 
coordinate geometry (the authors recommend the books detailed in Cohn 
(1961), Coxeter (1974), and McCrae (1953) — see References), and also of the 
BASIC programming language (see the Spectrum BASIC Handbook (Vickers 
(1982) and Hurley (1982)). Many interesting programming exercises are proposed, 
and these should raise the standard of the reader’s BASIC expertise. BASIC is a 
universally popular language, available (in various guises) on all types of micro- 
computer, so the programs may be easily adjusted to run on machines other 
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than the Spectrum: it is also a good medium for transmitting the algorithms 
used in computer graphics, enabling readers to translate these ideas readily 
into any other computer language of their choice. 

The concepts necessary for the study of computer graphics are organised as 
a combination of theory and worked examples; these are introduced as and 
when needed in the natural progression of the subject. Some program listings 
form part of the examples and these should not be considered just as algorithms 
that describe solutions to fundamental graphical problems, but also asa computer 
graphics software package in BASIC, or simply as programs to draw patterns. 
Alongside the examples are a series of exercises that expand these ideas. The 
practical problems implicit in programming the various concepts of computer 
graphics are often more a source of difficulty to the student than the concepts 
themselves. Therefore it is essential that readers implement many of the program 
listings given in the book in order to understand the algorithms, as well as 
attempt a large number of exercises. As an extra learning aid, a;companion audio- 
cassette tape is being made available; this contains most of the larger program 
listings given in this book. If readers are nervous of the mathematics, they should 
run the programs first before studying the theory. 

This approach to the subject has been used with great success in teaching 
computer graphics to undergraduates and postgraduates at Royal Holloway 
College. Quickly producing apparently complex pictures results in the positive 
feedback of enthusiastic interest. The ability to construct pictures on line- 
drawing and colour interactive graphics screens makes a long-lasting impression 
on students; and the step-by-step approach brings them very quickly to the 
level of very sophisticated computer graphics. That level is outside the scope 
of this book, but where necessary readers will find relevant references to guide 
them into the more advanced topics. 

This book is aimed at those who are competent BASIC programmers but 
complete beginners in graphics. It contains the elementary ideas and basic infor- 
mation about pixel and two-dimensional graphics, which must be mastered 
before attempting the more involved ideas of character and three-dimensional 
graphics. This is followed by a section relating to character graphics and the 
display of data (in line drawings and colour) - probably the most important 
non-specialised, commercial use of computer graphics. Later chapters introduce 
the reader to the geometry of three-dimensional space, and to a variety of 
projections of this space on to the two-dimensional space of graphics devices. 
The related problems of hidden lines and hidden surfaces, as well as the con- 
struction of complex three-dimensional objects, are dealt with in detail. Finally, 
we return to advanced ideas in BASIC programming and a large worked example 
of a video game. 

Graphics is one of the most rapidly expanding areas of computer science. It 
is being used more and more in the fields of Computer Aided Design (CAD), 
Computer Assisted Management (CAM) and Computer Assisted Learning (CAL). 
At one time it was only the big corporations such as aircraft and automobile 
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manufacturers that used these techniques, but now most companies are realising 
the potential and financial savings of these ideas. What is more, not only is 
computer graphics profitable, it’s fun! The Sinclair Spectrum is an ideal machine 
on which to learn the basics of computer graphics, and an excellent springboard 
to the most sophisticated (and expensive) graphics devices. 

We hope this book will display some of the excitement and enthusiasm for 
computer graphics experienced by us, our colleagues and students. To demon- 
strate just how useful computer drawings are for illustrating books and pam- 
phlets, all the pictures here were drawn by computer specifically for this book. 


Introduction 


This book may be read at anumber of different levels. Firstly, it can be considered 
as a recipe book of graphics programs for those who simply want to draw 
complex pictures with their Spectrum. We naturally hope that the reader, having 
drawn these figures, will be inspired to delve deeper into the book in order to 
understand how and why the programs were constructed. Secondly, some of the 
programs may be used asa package to produce and label data diagrams (pie-charts, 
histograms and graphs) for business and laboratory use. Finally, and the main 
reason for writing the book, it is an introductory text to computer graphics, 
which leads the reader from the elementary notions of the subject through to 
such advanced topics as character graphics, construction of three-dimensional 
objects and hidden line (and surface) algorithms. 

The complex programs later in the book are much too involved to be given as 
a single listing. Furthermore we will see a great deal of repetition in the use of 
elementary algorithms. Therefore we use the top down or modular approach in 
writing and explaining programs. The solution to each major graphics problem is 
conceived as a series of solutions to subproblems. These subproblems may be 
further broken down into a set of problems to be solved (modules). These 
modules will be programmed in the form of BASIC subroutines. Each is given an 
identifier (in lower case characters) and will solve a particular subtask. Then the 
totality of submodules combine to solve the required graphics problem. Because 
the program listings are used to represent algorithms for the solution of these 
subtasks, we decided in general not to use statements like GO SUB 6000. We 
prefer instead to assign the subroutine identifier to the address value at the 
beginning of the routine (for example, LET scene3 = 6000) and thus we can 
write statements like GO SUB scene3. We use lower case for subroutine identifiers 
(and groupings of routines in the text) only: all other program variables will be 
in upper case to avoid confusion. 

Spectrum BASIC does not have the facility of passing parameters into routines. 
Values of input parameters have to be set in assignment statements outside the 
routine, and the names of output parameters must be known if sensible use is to 
be made of the routine. This can be rather inconvenient if you are using someone 
else’s package of routines. It is essential that users know the names of the input 
and output parameters; therefore in our routines we use the REMarks IN: (to 
identify the INput parameters) and OUT: (for the OUTput parameters). We 
number our programs so that all program statements are on lines ending in 0, 
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and REMarks on lines ending in 1 to 9 (except the naming of routines). The IN: 
and OUT: REMarks follow directly the naming REMark on lines ending in 1 and 
2 respectively. Also the cassette tape listings of programs use character codes to 
highlight and colour various REMarks (see chapter 13). In cases where we think 
that the word REM detracts from readability of a line we use these codes to 
make it invisible. We have minimised the REMarks on the cassette so that we can 
pack the maximum amount of program listing on to the tape. It is a good idea to 
expand these listings by adding the complete REMarks, and SAVE them on your 
own tapes. 
For those who want only to run our programs, we give a list of complete 
programs at the end of each chapter together with suitable data values. In fact 
.it is a good idea for all, including the serious readers, to SAVE the routines on 
tape before approaching each chapter. They can then LOAD, MERGE and RUN 
the programs as they occur in the text. The cassette tape available to accompany 
the text contains all the larger listings in the book, as well as BYTE data for 
diagrams and character sets used in later programs (which would otherwise have 
to be constructed by readers themselves, a rather time-consuming process). Our 
routines were written for the 48K Spectrum: if you have a 16K machine you 
should read appendix A and note the changes that need to be made. 
As an example of what to expect, we give below the program required to 

draw figure I.1, a line drawing of a body of revolution in which all the hidden 
lines have been suppressed. This will work on both types of machine. 


Figure [.1 


The program requires the MERG(E)ing of listings 2.1 (‘start’), 2.2 (two 
functions FN X and FN Y), 2.3 (‘setorigin’), 2.4 (‘moveto’) and 3.3 (‘clip’ and 
‘lineto’). This combination of routines will be called ‘lib1’, and it was designed 
for drawing line figures on the television screen. 

To ‘libl’ must be added listings 3.4 (‘angle’), 8.1 (‘mult3’ and ‘idR3’), 8.2 
(‘tran3’), 8.3 (‘scale3’), 8.4 (‘rot3’), 9.1 (‘look3’) and 9.2 (‘main program’). 


Introduction of 


Routines, which when combined we call ‘lib3’, are used for transforming and 
observing objects in three-dimensional space. 

We need also listing 10.3 (‘revbod’) as well as the ‘scene3’ routine given in 
listing I.1 below. 


Listing 1.1 


60022 REM scene3/flying saucer 

6818 DIM XCi2): DIM Y(12) 

6028 DIM S(6): DIM T(6) 

603@ DIM AC4,4): DIM B(4,4): DIM R(4,4) 

6048 DATA 0,3, 3,2, 5,1, 5,0, 4,71, 0,73 
605@ RESTORE scene3 

6068 LET revbod = 6500 

6069 REM create object. 

6070 LET NUMV = 5 

6082 INPUT "NUMBER OF HORIZONTAL LINES",NUMH 
6098 INPUT "ANGLE PHI ";PHI 

6100 FOR I = 1 TO NUMV + 4: READ SCI),T(1): NEXT I 
6189 REM position the observer. 

6118 GO SUB idR3: GO SUB Look3 

6129 REM draw object. 

6128 GO SUB revbod 

613@ RETURN 


Figure I.1 requires the data HORIZ = 12, VERT = 8, EX=1, EY = 2, EZ =3, 
DX = 0, DY = 0, DZ = 0, NUMH = 16 and PHI = 0. Each value has to be typed in 
individually on request by the machine. The picture will take about 5 minutes to 
draw, so be patient. Run the program with different data values. What happens if 
HORIZ = 6 and VERT = 4, and the other values stay the same? Set HORIZ = 15, 
VERT = 10, EX = 1, EY = —2, EZ =3, DX = 1, DY = 0 and DZ = 0. Try 
NUMH = 20, PHI = 0.1. You will have to read up to and including chapter 10 
to understand the details of what is happening. 

This example illustrates the reasoning behind the layout of this book. Assum- 
ing that you are a fast typist, or that you have bought the accompanying tape, 
then a relatively complex three-dimensional picture can be constructed very 
quickly with a minimum of fuss. Even one-finger typists (like the authors) will 
have little difficulty in implementing this and the other programs, before they 
go on to study the book in detail. 

We hope that this example will inspire you to implement all the programs in 
this book, to try most of the examples, and then to go on to draw your very 
own computer graphics pictures. 

Now you can read the rest of our book and we wish you many happy hours 
with your Spectrum. 


I Graphics Operations of the ZX 
Spectrum 


Throughout the course of this book we will be assuming that the reader is reason- 
ably familiar with the BASIC programming language on the ZX Spectrum. In 
this chapter, however, we shall be looking at some of the BASIC commands — 
those concerned wholly or partly with graphics. With a series of example programs 
and simple exercises we shall examine and explore the Spectrum’s capabilities. 
In the chapters that follow we shall use this knowledge to develop a sound 
understanding, both practical and mathematical, of computer graphics. 

Initially we shall consider the hardware and software facilities available for 
producing pictures. All microcomputers that produce television pictures generate 
their graphical display using RASTER SCAN technology. This is also true of 
most of the newer commercial mini and main-frame computers. An area of memory 
is reserved to hold the display information for the screen and this is examined, 
bit by bit, as the electron beam sweeps across the raster screen. The display is 
composed of points, each of which is represented by a single bit (a binary on/off 
switch) in the memory. In the simplest case the beam is switched on for a short 
period each time a binary on is found, thus producing a point of light on the 
screen, 


PAPER and INK 


On the Spectrum we are given two commands; these directly control the way 
that the points are displayed. This affects the picture, which is made up of INK 
dots (binary ons) on a PAPER background (binary offs). The commands, named 
PAPER and INK (naturally), are called by using the name followed by a number 
N(O<NS9). 

PAPER N sets the background colour of the picture. After this statement is 
executed, all newly generated binary offs in the memory will be displayed in 
colour N (that is, until another PAPER command is executed). 

INK N sets the points of light corresponding to binary ons to colour N ina 
similar way. 

The number N, when in the range 0 to 7, represents the colour printed above 
the corresponding numeric key on the keyboard. If N is 8, then the colour 
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previously set for an area is used. If N is 9, then the colour of PAPER/INK is 
set to either black or white and will contrast with the other INK/PAPER colour 
currently in use. In general, black INK on white PAPER is clearest, as is obvious 
from any book, and this is the normal setting the for Spectrum. 


Display File 


This type of picture is referred to as a memory-mapped display since it corres- 
ponds directly to the contents of an area of memory. On the Spectrum this part 
of the memory is known as the display file and starts at location 16384. A simple 
exploration of how the display is affected by changing the contents of the 
memory can be made with a program such as listing 1.1. 


Listing 1.1 


10 LET CORNER = 16384 
20 LET VALUE = 137 
3@ POKE CORNER,VALUE 
4@ STOP 


This program uses POKE to store a VALUE (entered as a decimal) in the first 
location of the display file. This location holds the information for the top left- 
hand CORNER of the screen. Since each location, or byte, contains eight binary 
bits, the first eight points on the display are affected. These change to show a 
pattern equivalent to the binary representation of the VALUE: in this case 
10001001. 


Exercise 1.1 
(i) Experiment with different VALUEs and change the program either to, 
(a) use BIN (binary) representation for VALUE, or to 
(b) use a FOR. . NEXT loop to change VALUE. 
(ii) Use the PAPER and INK commands to change the background and fore- 
ground colours and then re-run the program to see what difference this makes. 


BORDER 

When the PAPER colour is changed it soon becomes obvious that we cannot 
write on the whole of the screen. A BORDER is left around the edge of the 
PAPER to avoid the distortion at the edge of the screen suffered by all television 
displays. The colour of this BORDER can be changed, in a similar way to the 
PAPER and INK colours, by the command 


BORDER N 


where N is in the range 0 to 7 and indicates the new BORDER colour. 
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Character Blocks 


A complete picture can be built up by storing various VALUEs at locations in 
the display memory in a similar way to listing 1.1. For instance, we could store 
the eight VALUEs 0, 98, 148, 136, 136, 136, 148, 98 in the display-file loca- 
tions that represent the start of eight consecutive lines on the screen (see listing 
1.2). We see the pattern of INK dots corresponding to the ‘ones’ shown in 
figure 1.1. 


128 64 32 16 8 4 2 1 


00000000 = = 0 
~ 01100010 = 64 + 32 +2 = 98 
10010100 = 128 +16 +4 = 148 
10001000 = 128 +8 = 136 
10001000 = 128 +8 = 136 
10001000 = 128 +8 = 136 
10010100 = 128 +16 +4 = 148 
01100010 = 64 + 32 +2 = 98 
Figure 1.1 


This is the way in which characters are defined (and redefined) on the 
Spectrum, but we shall leave further investigation of this until chapter 5. Never- 
theless it does illustrate that a picture, even as small as this, takes time to prepare 
and requires a comparatively complicated program to produce the display. 


Listing 1.2 


18 LET CORNER = 16384 

2@ LET LINE = 256 

30 DATA 8,98,148,136,136,136,148,98 
40 FOR T= 8 T07 

5@ LET MEMORY = CORNER + I*LINE 

60 READ VALUE 

70 POKE MEMORY,VALUE 

8@ NEXT I 

98 STOP 


PLOT and DRAW 


We have seen how the screen display can be changed by storing different values 
in the display file. But there are over six thousand locations in the display file 
and changing each of these individually would be quite tedious. We obviously 
need a more effective method of changing the display. 

BASIC provides us with graphics commands to deal with this problem, the 
simplest of which are PLOT and DRAW. All the graphics commands treat the 
display as a grid of 256 points horizontally by 176 points vertically (45056 in 
total). These points are known as pixels and are individually identified by a pair 
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of integers. The graphics commands help in constructing pictures by allowing us 
to control a graphics pen, which is initially positioned over pixel (0, 0). We can 
now explain these commands. 

PLOT X, Y moves our pen to pixel (X, Y) and plots an INK point there. 
DRAW X,Y draws a line from our pen’s current position to the point, X 
pixels away horizontally and Y pixels away vertically. If X is negative, the point 

will be to the left and if X is positive, it will be to the right. Similarly if Y is 
negative, the point will be below our old position, or if Y is positive, above. 

After the execution of these commands, the pen remains over the last pixel to 
be visited, awaiting the next command. Before examining the other more advanced 
graphics commands, we shall first see what is possible using only lines and/or 
paints. 

We are now in a position to draw large-scale pictures on the screen. For 
instance, we can draw a box around that area of screen available for graphics 
(listing 1.3). 


Listing 1.3 


10 PLOT 0,175 
28 PLOT 255,175 
30 PLOT 255,08 


40 PLOT @,0 
SQ IF INKEY$ <>" THEN GO TO 5® 
60 IF INKEY$ = "" THEN GO TO 60 


70 DRAW @,175 
88 DRAW 255,08 
98 DRAW @,-175 
100 DRAW -255,0 
118 STOP 


This program first PLOTs points at the corners of the PAPER; it then waits 
until a key is pressed before joining them up by DRAWing lines around the 
boundary of the PAPER. On comparing the PLOT and DRAW commands we see 
that there is an important difference in the way they work: the PLOT command 
uses the absolute pixel coordinates, whereas the DRAW command uses the 
relative positions of the points. This means that, in order to draw a line segment 
between two pixel points on the screen, it is first necessary to use PLOT to 
move the graphics pen to the point at one end of a line segment, then work out 
the position of the second end point relative to the first, before finally the line 
may be DRAWn. Note that in listing 1.3 all the points are decided before the 
program is run. In general, points are more likely to be INPUT, READ or 
calculated while the program is running. 


Exercise 1.2 


Write a program that calculates the position of lines to draw a grid. DRAW them 
using two FOR. . .NEXT loops (one for horizontal lines, the other for vertical 
lines). 
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Exercise 1.3 

Write a program that accepts N pairs of pixel coordinates as INPUT from the 
keyboard, and then DRAWs an irregular polygon of N sides by joining the points 
in order, (This requires some careful thought since the first point must be joined 
to the last.) 


PRINT and LIST 


So far we have not discussed the most obvious method of changing the display, 
namely using the PRINT and LIST commands. This is because these commands 
use character-size blocks and are designed primarily for use with low-resolution 
graphics. This topic will be dealt with in chapter 5 but, since the Spectrum allows 
high-resolution and low-resolution graphics to be freely intermixed, we give a 
small example here, Suppose we add the line 


5. LIST 
to the start of the program for exercise 1.2, and then set the program to draw a 


grid of 32 vertical lines and 22 horizontal lines. We get a display similar to figure 
1.2, which shows the size and position of the character blocks. 
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aA | 
A A 0 a 


Figure 1.2 


We can use the PLOT command to demonstrate the high-resolution capabili- 
ties of the Spectrum by drawing fractals (see Mandelbrot, 1977). 

To draw a simple fractal we follow this routine. Imagine a square with sides 
of length 4”. This may be divided into 16 smaller squares, each with sides of 
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length 4”~ , which we number 1 to 16 as in figure 1.3. Four of these smaller 
squares, numbers 2, 8, 9 and 15, are rearranged to produce figure 1.4. 


Figure 1.4 


Each of the squares in the pattern is now split up into 16 even smaller squares, 
in the same way, and these are similarly rearranged. We repeat this process until 
we have squares with sides of length 1. The resulting fractal pattern consists 
entirely of unit squares, which we can PLOT as single pixels. The program in 
listing 1.4 starts from a square with sides of length 64, which is 4° ; thus in the 
program there must be three FOR. . .NEXT loops nested inside each other. The 
final picture produced is shown in figure 1.5. 
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Listing 1.4 

1@ DIM X(16): DIM Y(16) 
20 FOR I= 1 10 4 

30 FOR J = 1 704 

40 LET K = 441 + 3 - 4 


59 LET X(K) = J = 32 LET YCKI=2 -— 3 
6@ NEXT J: NEXT I 


70: LET X€2); = OP LET Y¥X2) = -3 
8@ LET X(8) = 2: LET (8) = @ 
9 LET XC(9) = -3s LET YC9) = -1 
18D LET X(15) = -1: LET ¥C15) = 2 
118 FOR I = 1 TO 16 
120 FOR J = 1 TO 16 
130 FOR K = 1 TO 16 


140 LET XX = 16*X(I) + 4*X(J) + X(K) 
150 LET XY = 16*YC(I) + 4*Y(J) + YCK) 
160 PLOT 128+XX,88+YY 

170 NEXT K: NEXT J: NEXT I 

180 STOP 


Figure 1.5 


INVERSE and OVER 


We shall now consider the options that affect the way in which lines and points 
are placed on the screen. There are two commands, and to use them we must 
enter the command name followed by a number. The number is 1 to turn the 
effect on, and 0 to turn it off again. 

INVERSE: while this effect is on, all lines or points will be draw in the 
background (PAPER) colour. That is, the binary switches will be turned off 
instead of on. 

OVER: while this effect is on, any pixel affected by a graphics command will 
be flipped to its opposite state. Any pixel of INK is changed to the PAPER 
colour, and vice versa. That is, the binary switch for the pixel is flipped over to 
the other position. 

Using these commands we can produce programs that generate seemingly 
complex patterns and rapidly changing displays. Listing 1.5 gives a program that 
combines two methods of creating complicated patterns from very simple 
instructions. 
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Listing 1.5 


41@ OVER 1 
2@ LET LINES = 4800 
3@ LET A = @: LET ANGLE = 2*PI/LINES 


48 FOR I = 7 TO LINES 
5@ LET X = 85*COS A 
68 LET Y = 85*SIN A 


7@ PLOT 128,88 

80 DRAW X,Y 

90 LET A = A+ ANGLE 
102 NEXT I 

110 OVER @ 

122 STOP 


On a display composed of discrete points (pixels), angled lines will be drawn 
as a series of short, horizontal or vertical steps. When two such lines are drawn 
close together at slightly different angles, many of the steps on the lines will 
overlap. Consider figure 1.6, drawn by listing 1.5. The lines that form the central 
area overlap each other many times and so this area would be a mass of black 
were OVER not used. With OVER on, those pixels that lie on an odd number of 
lines are switched on, whereas the others remain off. This produces the striking 
pattern at the centre of the figure. On the other hand the outer area of the 
pattern is produced by holes, left by the line steps, of pixels not lying on any 
line. 


Figure 1.6 


Exercise 1.4 
Alter listing 1.5 to INPUT the value of LINES and also to INPUT a string variable, 
indicating whether or not the OVER option is to be used. Use this program to 


explore the parts played by OVER and by the steps on adjacent lines as LINES 
is varied. 
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The repeated use of random numbers to produce a variety of rapidly changing 
graphical displays has been a favourite device for attracting attention to com- 
puters. Listing 1.6 shows one simple illustration of this method using RND and 
OVER to place pixels at random about the screen. 


Listing 1.6 


1@ OVER 1 
20 LET x = 
30 LET Y = 
4 PLOT X,Y 
50 BEEP @.@5,(X - Y)/10 
68 GO TO 2¢ 


INT CRND*256) 
INT (RND*176) 


Exercise 1.5 
Alter listing 1.6 to DRAW lines, either between the random points as they are 
generated, or from the centre of the screen (128, 88) to each point. 


In the above exercise we saw that the OVER option ensured that the display 
changed with each command, even if the same command was repeated, for 
example, by DRAWing the same point, or line. The OVER option may be used 
in this way to display an object briefly — by drawing it twice, once to put it on 
the screen and again to take it off. Listing 1.7 moves a point around the screen 
by PLOTting it at its new position and immediately PLOTting its last position 
again to remove the old point. 


Listing 1.7 


10 GVER 7: PAPER @: INK 7: BORDER 4: CLS 

20 LET SPEED = 2 

3@ LET X = @: LET Y=9 

40 LET XADD = SPEED: LET YADD = SPEED 

5@ PLOT X,Y 

60 LET OLDX = X: LET CLBY = Y 

7@ LET xX = X + XADD 

82 IF X > 255 - SPEED OR x < SPEED THEN LET XADD = -XADD 
98 LET Y = ¥ + YALD 

106 IF Y > 174 - SPEED OR Y < SPEED THEN LET YADD = -YADD 
118 FLOT X,Y 

120 PLOT OLDX,OLDY 

130 GO To 60 


We can extend this program to allow keyboard control of the moving point 
(listing 1.8). The lower case letters about “f” enable the point to move in eight 
separate directions under our control. If a ‘‘p” is typed then the point leaves a 


trailing line that shows its past movements: if a ‘‘q” is typed then the point 
ceases to leave a trail. 
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This type of animation is an important and commonly used technique. We 
shall use it extensively, both in programs like the game in chapter 14, and in 


programs like the ‘cursor’ routine in chapter 6. 


Listing 1.8 

10 OVER 1 

2@ LET X = @: LET Y= 0 

30 PLOT X,Y 

48 LET OLDX = X: LET OLDY = Y 

5@ LET XADD = @: LET YADD = @ 

60 LET AS = INKEY$: IF AS = "" THEN GO TO 60 

7@ IF AS = "p" THEN OVER O 

80 IF AS = "gq" THEN OVER 7 

90 IF (AS = "e" OR AS = "d" OR AS = "c") AND X > ® THEN LET XADD = 
100 IF (AS = "c" OR AS = "Vv" OR AS = "b") AND Y > O THEN LET YADD = 
110 IF (AS = "t" OR AS = "g" OR AS = "b") AND X < 255 THEN LET XADD 
120 IF (A$ = "e" OR AS = “Pr OR AS = "t") AND Y < 175 THEN LET YADD 
130 IF XADD = @ AND YADD = @ THEN GO TO 60 


14Q LET X = X + XADD: LET Y = Y + YADD 
150 PLOT X,Y 

16@ PLOT OLDX,OLDY 

170 GO TO 49 


We can achieve large-scale animation by using lines to extend or contract a 
polygonal area. Listing 1.9 uses this method together with the INVERSE com- 


mand to form a fast zoom effect. 


Listing 1.9 


10 LET I = O: INK 9 

20 LET UP = 175: LET ACROSS = 255 

30 LET X = @: LETY=@ 

40 LET DIF =1 

5@ INVERSE I 

6 PLOT X,Y 

70 DRAW @,UP: DRAW ACROSS,@ 

80 PLOT X,Y 

9G DRAW ACROSS,@: DRAW @,UP 
100 LET X = X + DIF: LET Y = Y + DIF 
112 LET UP = UP - 2 * DIF 

120 LET ACROSS = ACROSS - 2 * DIF 

130 IF UP < 0 OR UP = 175 THEN LET DIF = -DIF: LETI=1- 1 
140 IF UP = 175 THEN PAPER RND*7: CLS 
150 GO TO 58 


Exercise 1.6 


Draw a solid square composed of 40 by 40 pixels. Move this area about the 
screen under keyboard control. Note that you need change only the edges of the 


square, 
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FLASH and BRIGHT 


Having seen what is possible in black and white, we shall now turn our attention 
to colour. The Spectrum can have all the colours on the screen at once, but 
inside each character block there can be only two colours, PAPER and INK. 
These colours may be BRIGHT and/or FLASHing; also, special effects like 
OVER and INVERSE can be turned on or off in the same way. 

FLASH: when FLASH is set for a given block, the colours within that block 
will alternate between INK on PAPER and PAPER on INK. 

BRIGHT: blocks with BRIGHT set will show both PAPER and INK at 
increased BRIGHTness. This has the effect of making non-BRIGHT blocks look 
darker. 

FLASH and BRIGHT can also be set to 8, so that the pre-existing setting for 
a block is unchanged by PRINT. 


Attributes 


The current combinations of FLASH, BRIGHT, PAPER and INK colours for 
each character block are stored in memory in the attribute file. This contains 
one location for each of the character blocks; it is located in memory immediately 
after the display file, and starts at location 22528. We can use listing 1.10, a 
modified version of listing 1.1, to alter these values directly, as we did with the 
display file. 


Listing 1.10 


10 LET CORNER = 22528 

20 INPUT "VALUE = BIN "; LINE V$ 
30 LET VALUE = VAL ("BIN " + VS) 
40 PRINT AT 0,0;"*" 

50 POKE CORNER, VALUE 

60 GO TO 20 


Exercise 1.7 


Use the program from listing 1.10 to alter individual bits within the VALUE 
stored in the first location of the attribute file. 


This VALUE affects the whole of the first character block by indicating for 
points in that block whether FLASH and BRIGHT are on or off, and what 
PAPER and INK colours are used. These pieces of information make up a 
BINary number in the following manner 


FLASH — 0 or 1; BRIGHT — 0 or 1; PAPER — 000 to 111; INK — 000 to 111 


Thus we can calculate the meaning of a value in the attribute file in the way 
shown in figure 1.7. 
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FLASH BRIGHT PAPER INK 


Normal settings = 1 0 5 2 

BINary equivalent = 1 0 101 010 

BIN 10101010) = 128+32+8+2 =170 
Figure 1.7 


The above example is the attribute for FLASHing, non-BRIGHT, cyan 
PAPER and red INK. The attribute value for any character block can be found 
using the function ATTR (ROW, COLUMN). The ROW and COLUMN para- 
meters specify the position of the block by counting the number of ROWs 
down from the top line and the number of COLUMNs across from the left edge. 
These are the same parameters we use to PRINT AT a character block. So it is 
easy to write a program that changes the attributes of blocks at random (see 
listing 1.11). This has the same effect as randomly POK(E)ing values into the 
attribute file (see page 117 of the Spectrum BASIC Handbook (Vickers, 1982)). 


Listing 1.11 


1® FLASH INT (RND*2) 

28 BRIGHT INT CRND*2) 

3@ PAPER INT (RND*8) 

4@ INK INT CRND*8) 

5@ LET ROW = INT (RND*22): LET COL = INT CRND*32) 
6@ PRINT AT ROW,COL;"*" 

7@ BEEP @.02,RND*49 

88 GO TO 18 


Exercise 1.8 

Modify the above program so that it changes just one character block to a 
random attribute setting, and then calculates and displays the FLASH, BRIGHT, 
PAPER and INK settings from the ATTR function. 


For convenience we can use table 1.1 to convert between attribute file value 
and the attribute settings. 


Table 1.1 Attribute Conversion 
PAPER INK MODE 
Black Blue Red Magneta Green Yellow Cyan White 


Black 0 1 2 3 4 5 6 7 NORMAL 
64 65 66 67 68 69 70 71 BRIGHT 
128 129 130 131 132 133 134 135 FLASH 
192 193 194 195 196 197 198 199 BRIGHT 
+ FLASH 


Blue 


Red 


Magenta 


Green 


Cyan 


Yellow 


White 


8 
[es 
136 
200 


16 
80 
144 
208 


24 
88 
152 
216 
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, 
73 
137 
201 


17 
81 
145 
209 


2D 
89 
153 
748} 


33 
97 
161 
225 


41 
105 
169 
233 


49 
113 
177 
241 


57 
121 
185 
249 


10 

74 
138 
202 


11 
75 
139 
203 


12 
76 
140 
204 


13 
77 
141 
205 


17 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 


NORMAL 
BRIGHT 
FLASH 
BRIGHT 
+ FLASH 
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We can think of each pixel on a colour television screen as three dots of light 
packed closely together at the vertices of an equilateral triangle. For each pixel 
there is one red, one blue and one green dot, and the attribute-file locations are 
used to control the illumination of the three different cotours. The display file 
will indicate that a given pixel is to be plotted in a particular INK colour. The 
lowest three bits (bits 0 to 2) of the attribute value for the block containing that 
pixel are used to decide whether the green, red and blue dots of that pixel are 
on or off. Our eyes contain only three types of colour sensor (green, red and 
blue). Our brain takes the signals from the three dots and combines them into a 
single dot of composite colour. So if the last three bits of the attribute are 111, 
equivalent to colour 7, we get green, plus red, plus blue. This corresponds to 
‘white light or white INK. The other colour codes, when written in binary form, 
can be translated in this way (see figure 1.8). 


Colour Number Binary Illuminated Dots 

Black 0 000 

Blue 1 001 Blue 

Red 2 010 Red 

Magenta 3 O11 Red + Blue 

Green 4 100 Green 

Cyan ) 101 Green + Blue 

Yellow 6 110 Green + Red 

White 7 111 Green + Red + Blue 
Figure 1.8 


When a PAPER-coloured pixel is to be illuminated, the three bits of the 
attribute corresponding to the PAPER colour (bits 3 to 5) are decoded in 
exactly the same way. Bit 6 in the attribute indicates whether BRIGHT is on or 
not, and is used to control the brightness at which all the dots will be illuminated. 
When an attribute has the FLASH bit set (bit 7), the colours corresponding to 
INK and PAPER will be alternated. The speed of alternation (that is, the FLASH- 
ing) depends on an internal value in the computer: on the Spectrum it changes 
about every one-third of a second. 

In general, we may safely use two colours for high-resolution graphics, but 
beware! No more than two colours may occur in one character block at any one 
time. Subject to this proviso, full-colour high-resolution graphics may be achieved. 


Exercise 1.9 

Experiment with different colours using the programs in this chapter. Certain 
colour combinations can be just too much for a normal television set to cope 
with. Unless you are using an expensive monitor instead of a television screen, a 
combination of clashing colours for the program in listing 1.5 should produce a 
rather interesting effect of waves washing across the screen. 
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Simple Animation 


We can produce more animated effects in low resolution by using colours and 
FLASH. Listing 1.12 shows some interesting techniques of colour animation. 
The first part of the program is particularly,useful because the display needs no 
maintenance once set up. The boundary of the picture is a sequence of blocks 
composed of alternative blocks of FLASHing red PAPER and cyan INK, and 
FLASHing cyan PAPER and red INK. On seeing this our brains are tricked into 
believing that the red and cyan colours are moving around the boundary 
sequence. 


Listing 1.12 


10 FLASH 1: PAPER 2: INK 5 

20 FOR 1 = @ TO 1 

20 FOR J = @ TO 15 

4Q PRINT AT O,2%J + 13" " 

5@ PRINT AT 21,2%) +1 - 1;"" 
60 NEXT J 

78 FOR J = @ TO 18 

8 PRINT AT 2*J + 1,0;" " 

98 PRINT AT 2%) + 1 - 1,313" " 
100 NEXT J 
112 PAPER S: INK 2 
120 NEXT I 
130 FLASH @: LET P=@ 

148 FOR I= 1 TO 20 

150 PRINT AT 1,1; PAPER P;" 

160 LET P= P +1: IF P = 7 THEN LET P= @ 
178 NEXT I 
188 GO To 140 


Exercise 1.10 
Write low-resolution colour versions of the bouncing point program and the 


other animation programs. In your programs move character blocks instead of 
pixels around the screen. 


CIRCLE and DRAW 


The Spectrum has two further built-in high-resolution graphics commands that 
we have not yet examined: the CIRCLE command and the DRAW command for 
curved lines. 

CIRCLE X, Y, R draws a CIRCLE of radium R pixels centred on pixel (X, 
Y). It is important to remember that after obeying this command our graphics 
pen is left at a pixel on the right-hand side of the CIRCLE, just below the centre. 
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DRAW X, Y, A DRAWs a curved line from the current position to the 
relative position X, Y, while turning through an angle A. This curved line will be 


an arc of a CIRCLE. The angle through which the line turns is specified in radians 
and may be between —Pi and PI. 


Listing 1.13 demonstrates the use of these commands by producing the 
display shown in figure 1.9. 


Figure 1.9 


Figure 1.10 
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Listing 1.13 


10 CIRCLE 128,88,80: LET N = 12 

20 LET A= @: LET ADIF = 2*PI/N 

30 FOR T= 1 TON 

4Q PLOT 128,88 

5@ LET xX = 40*COS A: LET Y = 4@*SIN A 
60 DRAW X,Y,-PI: DRAW X,Y,PI 

70 LET A =A + ADIF 

80 NEXT I 


Exercise 1.11 
Figure 1.10 shows the traditional Celtic pattern known as a triskele. Write a 
program to draw this type of pattern. 


Colours within a Character Block 


The use of different INK colours for high-resolution graphics can cause problems 
and produce results that are calculable but usually unforeseen. Run the program 
in listing 1.14. It will show just how easily things can go wrong when more than 

two colours are used without careful planning. 


Listing 1.14 


10 PAPER 5: INK 7: CLS 


20 FOR 1 = @ TO 775 STEP 8 
30 PLOT 2,1: DRAK 255,0 

4Q NEXT I 

5@ INK 

60 CIRCLE 128,88,80 

7@ STOP 


This problem can be used to our advantage. We can produce rapidly changing, 
and complicated, low-resolution colour displays. Initially we PRINT solid INK 
blocks at specified positions on the screen. Any line drawn subsequently will 
change the colour of the low-resolution blocks through which it passes. The 
impressive speed of this technique can be seen by running the program given in 
listing 1.15. 


Listing 1.15 


10 INK 7: CLS 

20 FOR T= 1 TO 704: PRINT "@";: NEXT I 

32 LET DIST = 8@: LET I = @: LET D=€E 

40 INK I 

50 PLOT 128,86 + DIST: DRAW DIST,-DIST: DRAW -DIST,-DIST 

60 FLOT 127,86 ~ CIST: DRAW -DIST,DIST: DRAW DIST,DIST 

7@ LET DIST = DIST - D: IF DIST = B OR DIST = 80 THEN LET D = - D 
8@ LET I= 1 +1: IF I = 8 THEN LET I=@0 

S@ GO TO 48 
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A Simple Game 


We now include a small game program (listing 1.16) as a final example of the use 
of the techniques discussed in this chapter. A worm can move in character block 
steps about the screen, horizontally or vertically, under control of the keyboard. 
The aim of the game is for the worm to eat the money (or target). The worm gets 
longer whenever it eats the target. If at any time the head of the worm runs 
headlong into the boundary, or into its own body, then the worm dies. After ten 
successful meals the worm returns to its original size, with a fanfare. The game 
then continues. 

This game was developed using modular, structured methods preferred by 
programmers. These methods help to produce quickly a working and understand- 
able program. Put simply, we must approach the program asa series of small 
tasks that build up block by block into the completed program. For this game 
these tasks were tentatively defined as 


A. Initialise variables 

B. Set up board 

C. Control game 

D. Update and print score 


From this overview of the problems we can set about solving each problem or, if 
necessary, split them into yet smaller, more manageable problems. For example, 
task C above could be split into 


1. Generate target 
2. Use keyboard to change direction of worm 
3. Move worm 


Task 3 could be further split 


a. Draw worm 

b. Worm hits boundary or itself, and dies 
c. Worm eats money and grows 

d. Fanfare 


No specific order is implied in this breakdown; for example, you may find that 
you want to regenerate the target from inside the fanfare section of program. 
These headings are simply a list of tasks that reflect the problems that come to 
mind when attempting the solution of a larger problem. 

Examine the game below and try to identify which tasks are carried out, 
where, in what order, and which have been further subdivided. (Throughout this 
book the variable names in lower case will refer to line numbers at the start of 
subroutines. This helps to make the program more readable, gives a clear picture 
of the algorithm, and hence is good general practice.) 
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Note the use of logical expressions (for example, IF DEAD THEN. . .): see 
chapter 13 of the Spectrum BASIC Handbook (Vickers, 1982). Also note the 
use of ATTR and SCREENS to detect collisions, both by the colour of character 
blocks and by their contents. Figure 1.11 shows a typical state of the game. 
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Figure 1.11 


Listing 1.16 


1000 
1909 
1010 


1020 
1038 
1039 
1049 
1048 
1049 
1050 
1259 
1068 
1269 
1078 
1079 
1088 
1089 
1098 
1099 
1100 
1109 


DIM R(55): DIM C(55) 

REM initialise routine pointers and set hiscore to @. 

LET fanfare = 2008: LET worm = 300M: LET key = 4000 

: LET gobble = 5@08: LET status = 6020: LET target = 7000 
BORDER 1: PAPER 7: INK @ 

LET HSC = @ 

REM start/restart for game. 

LET SCORE = @: LET WORMS = 3: LET LEVEL = 1 

REM start a new worm, five segments Long from row R column C. 
REM P is pointer to segment which is to be moved. 

LET S = 5: LET P = 1: LET R = @: LET C = INT CRND*32) 

REM set movement variables so that worm is going down. 

LET RMOVE = 1: LET CMOVE = @: LET H$ = "vy" 

REM clear array of segment positions. 

FOR I = 1 TO 55: LET R(I) = -1: NEXT I 

REM set truth flags for game (@ = false, not @ = true). 
LET WON = @: LET DEAD = 0 

REM set up screen with yellow strips on top and bottom. 
CLS: PRINT AT @,0; PAPER 6;,,: PRINT AT 21,0; PAPER 6;,, 
REM print out scores and place a £ note target on the screen. 
GO SUB status: GO SUB target 

REM main Loop of game: check for controls,move worm. 


24 


1118 
1119 
1720 
1129 
11308 
1139 
1140 
1149 
1158 
1159 
1160 
11708 
1186 
1189 
1198 
1199 
1200 


1218 
1220 


2000 
2009 
2010 
2019 
2020 
2030 


3008 
3008 
3009 
3010 
3019 
3020 
3029 
3030 
3039 
3048 
3049 
305@ 
3059 
3060 
3069 
3070 
3080 
3090 


4000 
4009 
4010 
4019 
4020 
4028 
4029 
4030 


4039 
4040 


4049 
4058 


4059 
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GC SUB key: GO SUB worm 

REM if nothing has happened keep on Looping. 

IF NOT DEAD AND NOT WON THEN GO TO 111D 

REM if one worm has eaten £19 give fanfare and start a new worm. 
IF WON THEN LET LEVEL = LEVEL + 1: GO SUB fanfare: GO TO 1050 

REM make crashing noise. 

IF DEAD THEN FOR I = 1 TO 18: BEEP @.005,15: NEXT I 

REM if you have another worm Left start a new worm. 

IF DEAD THEN LET WORMS = WORMS ~ 1: IF WORMS <> ® THEN GO TO 1050 
REM remove all segments by moving pointer along from back of worm. 
FOR I = 1 TO S: BEEP @.@1,0: PRINT AT R(P),C(P); PAPER 7;" " 

LET P = P + 1: IF P > S THEN LET P = 1 


NEXT I 
REM remove target from screen and update score Lines. 
PRINT AT Y,X; PAPER 7;" “: GO SUB status 


REM use flashing input to wait for entry before restarting game. 
LET I$ = CHRS 18 + CHRS 1 + "PRESS ENTER TO START GAME” 
+ CHRS 18 + CHRS OD 

INPUT (I$ + ” "); LINE AS 

GO TO 1048 


» 


REM fanfare 

REM this is played when you go up a Level. 

DATA 0.06,18,0.06,19,0.06,21,8.15,27 ,0.06,21,0.2,27 

REM read and play the six notes/duration combinations. 
RESTORE fanfare: FOR I = 1 TO 6: READ L,T: BEEP L,T: NEXT I 
RETURN 


REM worm 

REM worm moves by taking Last segment and moving it to the front. 
REM if it's not a growth segment then erase it at it's old position. 
IF RCP) <> -1 THEN PRINT AT RC(P),C(P); PAPER 7;" " 

REM calculate new position of worms head. 

LET R = R + RMOVE: LET C = C + CMOVE 

REM check for collision with boundaries. 

IF R > 20 OR R <1 OR C > 31 OR C <@ TREN LET DEAD = 1: RETURN 
REM check for collision with another segment of worm. 

IF ATTR (R,C) = 16 THEN LET DEAD = 1: RETURN 

REM set row and column of segment to new position. 

LET RCP) = R: LET CCP) = C 

REM check whether target has been eaten. 

IF SCREENS (R,C) = "£'' THEN GO SUB gobble 

REM put new segment on screen and move pointer along worms back. 
PRINT AT R(P),C(P); PAPER 2;HS 

LET P = P +1: IF P > S THEN LET P = 1 

RETURN 


REM key 

REM check for controls being used. 

LET AS = INKEYS: IF AS = "" THEN RETURN 

REM make sure all Letters are treated as lower case. 

IF CODE AS < 96 THEN LET AS = CHRS (CODE AS + 32) 

REM worm can only turn Left or right from course not back on itself. 
REM control for up is pressed, if you're not going down then turn up. 
IF AS = "j" AND CMOVE THEN LET RMOVE = -1: LET CMOVE = @ 

; LET HS = “f "s RETURN 

REM turn down ( if worm is not going up ). 

IF AS = "m'" AND CMOVE THEN LET RMOVE = 1: LET CMOVE 
: LET HS = "vy": RETURN 

REM turn Left ( if worm is not going right ). 

IF AS = "j" AND RMOVE THEN LET RMOVE = @: LET CMOVE 
: LET HS = "<": RETURN 

REM turn right (€ if worm is not going left ). 


i] 
Ss 


-1 
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4060 IF AS = "k" AND RMOVE THEN LET RMOVE = @: LET CMOVE = 1 
: LET HS = ">": RETURN 

4072 RETURN 
5000 
5029 
5018 
5020 


REM gobble 

REM eat target, make gobbling noises. 
FOR I = 2 TO 4 STEP @.5 

BEEP 0.01,EXP I - 10: NEXT I 


5029 REM add to your score and update score~lines. 

5030 LET SCORE = SCORE + 1: GO SUB status 

5@38 REM make five more segments available for growth. 

5039 REM if worm has 55 segments then it has eaten £10 sc you win a round. 
5040 LET S$ = $ + 5: IF S$ = 55 THEN LET WON = 1: RETURN 

5049 REM place a new target on the screen. 

5058 GO SUB target 

5062 RETURN 

6020 REM status 

60229 REM if your score beats hiscore then update hiscore. 


6010 IF SCORE > HSC THEN LET HSC = SCORE 


6019 REM print out both score~Lines. 

6022 PRINT AT 2,0; PAPER 6;" SCORE ";SCORE," HI-SCORE ";HSC 
6032 PRINT AT 21,0; PAPER 6;" LEVEL ";LEVEL," WORMS ";WORMS 
6042 RETURN 

7000 REM target 

7209 REM choose a character block in the playing area at random. 
7010 LET X = RND*31: LET Y = RND*19 + 1 

7019 REM check that it's not the same place as the Last one. 
7020 IF X = C AND Y = R THEN GO TO target 

7029 REM check that it's not under the worm. 

7030 IF ATTR (Y,X) = 16 THEN GO TO target 

7039 REM print new £ note on the screen. 

7048 PRINT AT Y,X; PAPER 4;"£" 

7050 RETURN 


Exercise 1.12 

As a final mini-project for this chapter, write a squash game or ping-pong video 
game (or both!) using low-resolution colour graphics. The ball can be a pixel or 
character block, and the bat(s) should be controlled from the keyboard like the 
worm in the above program. You will find it useful to turn some of the program 
sections from this chapter into subroutines. 


In this chapter we have restricted ourselves to using the screen as a fixed piece 
of PAPER for patterns and games. To step up from pixel graphics to drawing 
pictures of real objects, we need commands that will relate the real world to our 
PAPER. In the following chapters we shall explore and develop the techniques 
needed to draw these real graphics pictures. 


Complete Programs 


I. Listing 1.1: no data required. 
II. Listing 1.2: no data required. 
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. Listing 1.3: 
. Listing 1.4: 
. Listing 1.5: 
. Listing 1.6: 
. Listing 1.7: 
. Listing 1.8: 


Listing 1.9: 


‘status’ and 


no data required. 
no data required. 
no data required. 
no data required. 
no data required. 


press keys around character “F” to move point in one of 
eight directions, press “P” to start leaving a trail and “‘Q” to stop trail. 


no data required. 


. Listing 1.10: no data required. 
. Listing 1.11: no data required. 
. Listing 1.12: no data required. 
. Listing 1.13: no data required. 
. Listing 1.14: no data required. 
. Listing 1.15: no data required. 
. Listing 1.16 (main program and routines ‘fanfare’, ‘worm’, ‘key’, ‘gobble’, 
‘target’): use keys “T’’, “J”, “K” and “M” to control move- 

ment of worm. 


2 From Real Coordinates to Pixels 


We have seen that Spectrum imagines its graphics frame to be a rectangular 
matrix of addressable points or pixels, These pixels are stacked in NXPIX 

(= 256) vertical columns and NYPIX (= 176) horizontal rows. Individuals from 
the set of NXPIX by NYPIX pixels can be uniquely identified by a bracketed 
pair of integers; these are sometimes called a pixel vector (I, J), where O<I < 
NXPIX — 1 and 0 <J < NYPIX — 1, the vector specifying the position of the 
pixel in the I™ column and J™ row: the vector (0, 0) identifies the bottom left- 
hand corner pixel of the frame. The Spectrum has its own set of BASIC instruc- 
tions that enable users to operate on the matrix of pixels, treating them as 
points of light that can be switched off or on. This enables the operator to 
approximate lines, or polygons and other special types of area, with a series of 
coloured dots (the pixels). 

The chapters that follow can be considered as taking the reader some way 
towards generating a two-dimensional and three-dimensional graphics package 
for the Sinclair Spectrum: the programs are given in BASIC and rely (with a few 
exceptions) on a small number of primitive routines given in this chapter. 


Primitives that Map Continuous Space on to the Graphics Frame 


In general, computer graphics deals with points, lines, areas and volumes in con- 
tinuous two-dimensional and three-dimensional Euclidean space. Pixel graphics 
is very limited. The definition of objects that use only discrete pairs of integers 
is very rare in most practical applications. We therefore need to consider ways of 
plotting views of objects on a graphics screen, where positions are measured in 
real units: inches, miles or even light-years! Therefore we consider the relation- 
ship between two-dimensional real space and screen pixels. Before we can 
attempt this step, however, we must first discuss ways of representing two- 
dimensional space using Cartesian coordinate geometry. 

We can imagine two-dimensional space as the plane of this page extending to 
infinity in all directions. Our description of the coordinate geometry starts by 
arbitrarily choosing a fixed point in this space, which we call the coordinate 
origin. Through the origin we draw a line that stretches to infinity in both 
directions; this is the x-axis, The normal convention is to place this line left to 
right on the page (the horizontal). Another two-way infinite line, the y-axis, is 
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drawn through the origin perpendicular to the x-axis; conventionally this is 
placed from the top to the bottom of the page (the vertical). We now draw a 
scale along each axis: unit distances need not be the same on both axes, but this 
is normally the case (see figure 2.1). We assume that values on the x-axis are 
positive to the right of the origin and negative to the left: values on the y-axis 
are positive above the origin and negative below. 


Figure 2.1 


Taking any point p in space we can now uniquely fix its position by specify- 
ing its coordinates (figure 2.1). The x-coordinate, X say, is that distance along the 
x-axis (positive to the right of the axis and negative to the left) at which a line 
perpendicular to the x-axis passing through p cuts the x-axis. The y-coordinate, 
Y say, is correspondingly defined using the y-axis. These two values, called a co- 
ordinate pair or two-dimensional vector, are normally written in brackets thus: 
(X, Y). Note that the x-coordinate comes before the y-coordinate. We shall 
usually refer to the pair as a vector — the dimension (in this case two) will be 
understood from the context in which we use the term. A vector, as well as 
defining a point (X, Y) in two-dimensional space, can also be used to specify a 
direction, namely the direction that is parallel to the line joining the origin to 
the point (X, Y) — but more of this (and other objects such as lines, curves and 
polygonal areas) in chapter 3. 

We are now in a position to devise means (the above-mentioned primitive 
routines) for mapping such geometrical concepts on to the two-dimensional dis- 
crete rectangular matrix of pixels that form the graphics frame. 
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Here we concentrate on two-dimensional space: an extension into three- 
dimensional space is dealt with starting at chapter 7. In both cases we require a 
method of mapping a rectangular area of two-dimensional Cartesian space on to 
the graphics frame. For simplicity we start by insisting that this area has its edges 
parallel to the x-axis and y-axis of Cartesian space. Initially, we assume that this 
rectangular area of space has its bottom left-hand corner identified with the co- 
ordinate origin (0.0, 0.0), while the length of the horizontal edge is HORIZ and 
the vertical edge VERT. We first identify the origin with the (0, 0) pixel of the 
frame, and then scale the rectangular area so that it fits into the frame; naturally 
the area only exactly fits the frame if the ratios HORIZ: VERT and NXPIX: 
NYPIX are equal (that is, 256:176). This is rarely the case, so we choose a scaling 
factor, XYSCALE, that maps the point (HORIZ, VERT) on to a pixel either on 
the upper or the right-hand edge of the frame. We can consider this rectangle as a 
window on to Cartesian space; no longer anchored to the coordinate origin, it 
may wander about space viewing rectangular areas of the same size as the original, 
but still having edges parallel to the original coordinate axes. As a general rule we 
make HORIZ roughly one-and-a-half times VERT. 

At any time during the execution of the program we can move the coordinate 
origin from its original position at the bottom left-hand corner of the frame. Its 
position relative to the first origin will be stored as XORIG and YORIG, the x- 
component and y-component respectively. Initially, (XORIG, YORIG) is identi- 
fied with (0.0, 0.0). Hence any point in Cartesian space with coordinates (XPT, 
YPT), a pair of reals, maps into a pixel with horizontal component INT((XORIG 
+ XPT)*XYSCALE + 0.5) and vertical component INT((YORIG + YPT)+ 
XYSCALE + 0.5). (INT is the BASIC function that truncates the fractional part 
of a decimal number and returns an integer.) These two components are stored 
as functions FN X and FN Y (see listing 2.2). During the construction of a picture 
we must consider a plot pen, in value a pair of integers, which moves about the 
graphics frame; initially it is placed at (0, 0), and in general it is the (XPEN, 
YPEN) pixel. The constants NXPIX and NYPIX, and the variables XYSCALE, 
XPEN, YPEN, XORIG and YORIG, must be available at all times to the plotting 
routines that follow, so these names must not be used for any other purpose. The 
routines were written specifically for the Spectrum, but we discuss also the 
general principles of constructing similar routines for other graphical devices. 

To start with we would have to change the values of NXPIX and NYPIX before 
we could use a different machine. 

Our first routine ‘start’ initialises the required variables and prepares the screen 
for plotting. Listing 2.1 is an example ‘start’ routine for the Spectrum. 


Listing 2.1 


9700 REM start 

9701 REM IN : HORIZ, VERT 

9702 REM OUT : NXPIX, NYPIX, XORIG, YORIG, XYSCALE, XPEN, YPEN 
9710 LET XORIG = @: LET YORIG = @ 
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9720 LET XPEN = @: LET YPEN = @ 

973 LET NXPIX = 256: LET NYPIX = 176 

$748 LET XYSCALE = NXPIX/HORIZ: LET YSCALE = NYPIX/VERT 
975@ IF XYSCALE > YSCALE THEN LET XYSCALE = YSCALE 

976@ RETURN 


This routine may be extended should we need colour; it must have two extra 
parameters COLPAP and COLINK (integers between 0 and 7) for the colour of 
the paper and ink respectively. The following extra statement should be added 


9725 PAPER COLPAP : INK COLINK 


If we need to write this routine for a different microcomputer, all that is 
necessary is to replace the statements containing the Spectrum BASIC graphics 
instructions with the equivalent routines for the new machine. Most of the other 
routines in this book are independent of the structure of the Spectrum. 

In ‘start’ and in many other routines that follow, it is necessary to transform 
the x/y-coordinates of a point into their pixel equivalents, so we introduce the 
two functions FN X and FN Y in listing 2.2. 


Listing 2.2 


9650 DEF FN X(Z) 
9660 DEF FN Y(Z) 


INT (CXORIG + Z)*XYSCALE + @.5) 
INT (CYORIG + Z)*XYSCALE + @.5) 


The next primitive routine (listing 2.3) is ‘setorigin’. This enables us to move 
the coordinate origin by an amount XMOVE horizontally and YMOVE vertically 
(distances in the scale of the coordinate system), consequently adjusting the 
(XORIG, YORIG) values. After such a move the plot pen moves to the pixel 
equivalent of the new origin. 


Listing 2.3 


9680 REM setorigin 

9601 REM IN : XORIG, YORIG, XMOVE, YMOVE 

9602 REM OUT : XORIG, YORIG, XPEN, YPEN 

9618 LET XORIG = XORIG + XMOVE: LET YORIG = YORIG + YMOVE 
96208 LET XPEN = FN X(®) 

9630 LET YPEN = FN Y(®) 

9648 RETURN 


We shall be in a position to draw straight lines after we have produced two 
further routines: ‘moveto’, which moves the plot pen to a pixel equivalent of the 
point in coordinate space at one end of the line, and ‘lineto’, which draws the 
line by moving the plot pen from its present position (set by a previous call to 
‘setorigin’, ‘moveto’ or ‘lineto’) to the pixel equivalent of the point on the other 
end of the line. Listings 2.4 and 2.5 show ‘moveto’ and ‘lineto’ routines designed 
specifically for the Spectrum. The ‘lineto’ routine includes statements that 
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initiate the machine-dependent BASIC pixel instructions for drawing a line (note 
that PLOT is absolute and DRAW is relative); however, the ‘moveto’ routine is 
machine-independent. Hence if you wish to implement these routines on a differ- 
ent microcomputer you need only alter the ‘lineto’ routine. 


Listing 2.4 


9500 REM movetc 

9501 REM IN : XPT, YPT 
9502 REM OUT : XPEN, YPEN 
9510 LET XPEN FN X¢(XPT) 
9520 LET YPEN FN YCYPT) 
9530 RETURN 


Listing 2.5 


9400 REM Lineto 

9401 REM IN : XPT, YPT, XPEN, YPEN 
9402 REM OUT : XPEN, YPEN 

9410 LET NXPEN = FN X(XP7) 

9428 LET NYPEN = FN YCYPT) 

9430 PLOT XPEN, YPEN 

9448 DRAW NXPEN~XPEN,NYPEN-YPEN 

9450 LET XPEN = NXPEN: LET YPEN = NYPEN 
9460 RETURN 


In all but the most elementary machines, it is possible to set up these plotting 
routines or their equivalents (and many more as our knowledge increases) in a 
library file or backing store. Then there is no need to retype them explicitly into 
each new program. On the Spectrum we can store them as files on audio-cassettes 
(and MERGE them if necessary). On the companion cassette to this book you 
will find these routines as part of the ‘lib1’ library. 


Example 2.1 
Identify a rectangle in Cartesian space, 30 units by 20 units, with the graphics 
frame of the Spectrum. Then draw a square of side 15 units, centred in the 
rectangle (figure 2.2a). 

We centre the square by moving the origin to (15.0, 10.0) and thus define the 
corners of the square to be (+7.5, +7.5). See listing 2.6. 


Listing 2.6 


100 REM drawire a square 

129 REM setup identifiers to graphics routines. 

110 LET start = 9700: LET setorigin = 9602: LET moveto = 9500 
: LET Lineto = 9400 

119 REM define graphics area. 

120 LET HORIZ = 3M: LET VERT = 28 

130 GO SUB start 

148 LET XMCVE = HORIZ*@.5: LET YMOVE = VERT*@.5 

15@ GO SUB setorigin 

159 REM join corners of square in order. 

160 LET XPT = 7.5: LET YPT = 7.5: GO SUB movetc 


a2 
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170 LET XPT = -7.5: LET YPT = 7.5: GO SUB Lineto 
18@ LET XPT = -7.5: LET YPT = -7.5: GO SUB Linetc 
190 LET XPT = 7.5: LET YPT = -7.5: GO SUB Lineto 
202 LET XPT = 7.5: LET YPT = 7.5: GO SUB Lineto 
21@ STOP 


(b) 
Figure 2.2 


It is as well to note, at this juncture, that the order in which the points are 
joined is critical. For example, if the coordinates of the second and third corners 
of the square are interchanged then figure 2.2b will be drawn. 

Next we write a primitive routine ‘polygon’ that uses the Spectrum line- 
drawing instruction to draw such figures. The routine is given the NPOL vertices 
of the polygon as arrays X and Y (the x-coordinate and y-coordinate),. We also 
give an example main program calling this routine (listing 2.7). 


Listing 2.7 


REM main progrem/ calling polygon 

LET start = 9782: LFT setcrigin = 9680: LET moveto = 9500 
: LET Lineto = 9400: LET polygon = 300 

LET KCRIZ = 32: LET VERT = 20 

GC SUB start 

LET YMCVE = HORIZ*®.5: LET YMOVE = VERT*O.5 

GO SLB setorigin 

REM ceclare and input vertices of polygon. 

DIM X(5@): DIM Y(5@) 

INPUT "TYPE NUMBER OF VERTICES ",NPOL 

FOR T= 1 TO NFOL 

INPUT CUXC"S STRS 147) “DENCE CV C'+ STRS It") “DZYCD) 
NEXT I 

GC SUB polyger 

STOP 
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300 REM polygon 

321 REM IN © NPOL, ¥Oy YO 

312 LET XPT = XC(NPOL): LET YPT = YC(NPOL): GO SUB moveto 
319 REM jcin vertices of polygon in order. 

320 FOR I = 7 TO NPOL 

330 LET XPT = X(I): LET YPT = ¥(1): GO SUB Lineto 

340 NEXT I 

35@ RETUFN 


Exercise 2.1 

If we are using the Spectrum then it is possible to draw pictures in a variety of 
colours. But before drawing it is necessary to set the colour using the INK opera- 
tion. Write a routine ‘setcolour’ with one integer parameter COLINK that 
achieves this. 


Exercise 2.2 

In all the plotting routines above, the scale of the mapping (XYSCALE) is fixed 
once and for all; and the horizontal and vertical scaling factors are identical. 
There is no need to heed this convention: write a routine ‘factor’ that alters the 
horizontal scale by FX and the vertical by FY. Naturally, this implies that we 
now have to define two separate scales (XSCALE and YSCALE, say); and also, 
of course, the ‘start’, ‘setorigin’, ‘moveto’ and ‘lineto’ routines must be altered 
(see also chapter 6). 


Exercise 2.3 

There is no reason for the x-axis and y-axis to be identified with the horizontal 
and vertical respectively. In fact they need not even be mutually perpendicular. 
Experiment with these ideas, which necessarily involves changing all the plotting 
routines ‘start’, ‘moveto’, etc. 


Example 2.2 

One of the first popular graphics packages was CalComp. This includes a number 
of routines to draw axes and scales for the construction of graphs, and many 
other useful subroutines. They are all based on a line-drawing routine named 
‘plot’ (not to be confused with the Spectrum PLOT), which is central to the 
package; ‘plot’ has three parameters, two reals XPT and YPT, the coordinates of 
a point in space, and the movement information MOVE, an integer whose value 
is set to +2 or +3. This one routine may be used to replace all three of our 
routines ‘setorigin’, ‘moveto’ and ‘lineto’. If MOVE is negative, then a new co- 
ordinate origin is fixed at the point (XPT, YPT) of the old coordinate system — 
equivalent to ‘setorigin’. When the absolute value of MOVE is 3, then the plot 
head is moved without drawing a line — equivalent to ‘moveto’: when it is 2, 
then a line is drawn — equivalent to ‘lineto’. 

Naturally, even if we do not wish to implement the complete CalComp pack- 
age, we can still implement the ‘plot’ routine in place of ‘setorigin’, ‘moveto’ and 
‘lineto’; and use it instead, in conjunction with the remaining routines mentioned 
in this chapter — see listing 2.8. 
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Listing 2.8 


9800 REM clot / CalComp 

9801 REM IN : XPT, YPT, XPEN, YPEN, XORIG, YORIG, MODE 

9802 REM OUT : XPEN, YPEN, XCRIG, YORIG 

9810 LET NXPEN = FN X(XPT) 

9820 LET NYPEN = FN YCYPT) 

9830 IF ABS (MODE) = 2 THEN PLOT XPEN,YPEN: DRAW NXPEN-XPEN,NYPEN-YPEN 
984@ LET XPEN = NXPEN: LET YPEN NYPEN 

985@ IF MODE < @ THEN LET XORIG XORIG + XPT: LET YORIG = YORIG + YPT 
9860 RETURN 


» To demonstrate the use of these plotting routines we shall draw some simple 
patterns. There are those who think that the construction of patterns is a frivol- 
ous waste of time. Nevertheless, we consider it a very useful first stage in under- 
standing the techniques of computer graphics. Often, patterns of an apparently 
sophisticated design are the result of very simple programs. Quickly producing 
such graphical output is an immediate boost to morale, and gives a lot of con- 
fidence to the beginner. Furthermore, new designs are always in demand: 
geometrical art is used for the covers of books and pamphlets and in advertising 
literature. It can do no harm to initiate artistic ideas that will be of great use later 
when we study the pictorial display of data. Patterns are also an ideal way of 
introducing some of the basic concepts of computer graphics in a very palatable 
way. Take the next example, which looks at the important role of trigonometric 
functions (sine and cosine), and of angular measurement in radians! Remember 
that 7 radians is the same angular measure as 180 degrees. 


Figure 2.3 
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Example 2.3 
Figure 2.3, a very popular design, is constructed by joining each vertex of a 


regular N-sided polygon (an N-gon) to every other vertex. N is not greater than 
30. 

We set the origin at the centre of the design, and all the vertices at a unit 
distance from the centre: the sizes of the HORIZ and VERT (3, 2.1), are chosen 
so that the design fits neatly on the screen. If one of these vertices lies on the 
positive x-axis (the horizontal), then the N vertices are all of the form (COS 
(ALPHA), SIN(ALPHA)), where ALPHA is an angle 27]/N and I is chosen from 
1,2,...,or N. Here for the first time we see point coordinates being calculated 
by the program, not explicitly typed in, as in listing 2.6. Furthermore, since the 
program uses these values over and over again, it is sensible to store them in 
arrays and access them when required by specifying the correct array index. 
Note that in listing 2.9, if 1 <I <J <N, then the ye point is not joined to the 
I point; the line will have already been drawn in the opposite direction. 


Listing 2.9 


10D REM joining vertices of regular N-gon 

11@ LET start = 970M: LET setorigin = 960M: LET movetc = 9500 
: LET Lineto = 9400 

420 LET HCRIZ = 3: LET VERT = 2.1 

130 GO SUB start 

140 LET XMOVE = HORIZ*@.5: LET YMOVE = VERT*®.5 

15@ GO SUB setorigin 

168 DIM X(30): DIM Y(30) 

169 REM setup vertices of regular N-gon in arrays X and Y. 

170 INPUT "TYPE VALUE OF N "ZN 

180 LET ALPHA = @: LET ADIF = 2*PI/N 

199 FOR 1=1 TON 

2@0 LET X(I) = COS ALPHA: LET YC{1) = SIN ALPHA 

210 LET ALPHA = ALPHA + ACIF 

22@ NEXT I 

229 REM join point I to point J : 1<=I<J<=N. 

230 FOR I= 1 TO N-1 

240 FOR J = I+1 TON 


250 LET XPT = X(1): LET YPT = Y(1): GO SUB moveto 
268 LET XPT = X(J): LET YPT = Y(J): GO SUB Lineto 
270 NEXT J 

280 NEXT I 

298 STOP 


There are two immediate observations to be made from this very simple 
example. The first concerns resolution. Because the graphics frame is a discrete 
matrix, then straight lines must be approximated by a sequence of pixels. Un- 
fortunately, the resolution of the Spectrum, like most microcomputer graphics 
systems, is low (that is, NXPIX and NYPIX are the order of hundreds) so the 
lines appear jagged; even in higher-resolution devices (like microfilm plotters) 
the same is true, but the sizes involved are so small that the jaggedness goes 
unnoticed. 
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The second observation is that as N increases in listing 2.9, the outline of the 
figure (the N-gon) approximates closely to a circle. Therefore we can use this 
idea to write a routine ‘circle1’ (listing 2.10a), which draws a circle with radius 
R about the centre (XCENT, YCENT) to give a picture similar to figure 2.4. 
Note that we are using angles measured in radians; that is, we are incrementing 
by 3/(R*XYSCALE) each time through the loop — a value that depends on the 
radius and produces a reasonable circle without waste of effort. Note also that 
since the vertices of the N-gon are only needed once, we do not store their values 
but calculate them as required. Again, the limitation in resolution of the screen is 
apparent on the circumference of the circle. 


Figure 2.4 


Listing 2.10a 


302 REM circle 
301 REM IN : XCENT, YCENT, R, XYSCALE 


310 LET XMOVE = XCENT: LET YMOVE = YCENT : GO SUB setorigin 
320 LET ADIF = 3/(R*XYSCALE) 


330 LET XPT = R: LET YPT = @: GO SUB moveto 


229 REM calculate and join points (XPT,YPT) around the circle. 
340 FOR A = ADIF TO 2*PI STEP ADIF 


35@ LET XPT = R*COS A: LET YPT = R*SIN A: GO SUB Lineto 
360 NEXT A 
370 RETURN 


Listing 2.10b 


402 REM circle2 

401 REM IN : XCENT, YCENT, R, XYSCALE 

410 CIRCLE FN XC(XCENT),FN YCYCENT) ,R*XYSCALE 
428 RETURN 


We saw that the Spectrum has a BASIC function CIRCLE that enables us to 
draw a circle. So we can incorporate this in a primitive routine ‘circle2’ (listing 
2.10b) for drawing a circle, one that is necessarily more efficient than ‘circle1’. 

Whenever we use such routines, we must be aware of any side-effects pro- 
duced; for example, has the origin or plot head been moved by the routine? For 
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example, listing 2.10a changes the position of both the origin and plot pen, 
whereas listing 2.10b does not. It would therefore be sensible to add the follow- 
ing line to the ‘circle1’ routine 


370 LET XMOVE=—XCENT: LET YMOVE=—YCENT: GO SUB setorigin : RETURN 


Exercise 2.4 

Write a routine to draw an ellipse of major axis A units (horizontal) and minor 
axis B units (vertical). Note that a typical point on this ellipse has coordinates 
(A cos a, B sin a) where 0 < a < 27. However, it must be remembered that, un- 
like the circle, w is not the angle made by the radius through the point with the 
positive x-axis. It is simply a descriptive parameter. 

Incorporate this routine in a program that draws a diagram similar to figure 
2.5. Here are two things to note: (1) there is no need for A to be greater than B; 
and (2) observe the optical illusion of the two apparent white diagonal lines. 
Another illusion can be seen in figure 2.3 — dark circles radiating out from the 
centre of the pattern. The study of optical illusions is fascinating (see Tolansky, 
1964) and it is a never-ending source of ideas for patterns. This exercise was 
introduced because it leads the way to the general technique of drawing curves 
(see chapters 3 and 6). 


Figure 2.5 


Example 2.4 

An extension of this idea, the natural next step, is the construction of a spiral. 
Again the general form of the curve about the origin is (R cos a, R sin a) but now 
a varies between angles 6 to B + 2Nz, where 6 (the parameter BETA) is the initial 
angle that the normal to the spiral makes with the positive x-axis, and N is the 
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number of turns in the spiral. The radius R is no longer a constant value, but 
varies with the value of a: if RMAX is the outer radius of the spiral then R is 
given by the formula 


R = RMAX(a — 8)/2Na 


Note that this routine, which centres the spiral at (XCENT, YCENT), causes no 
side-effects because we reset the origin back to its original position before 
leaving the routine. 


Listing 2.1la 


308 REM spiral’ 

301 REM IN : XCENT, YCENT, RMAX, N, BETA 

310 LET XMOVE = XCENT: LET YMOVE = YCENT : GO SUB setoricin 
328 LET ADIF = PI/5@: LET ALPHA = BETA 

332 LET RDIF = RMAX/(N*10D) 

339 REM calculate and join points (XPT,YPT) on the spiral. 
348 FOR R = RDIF TO RMAX STEP RDIF 

35@ LET XPT = R*COS ALPHA: LET YPT = R*SIN ALPHA: GO SUB Lineto 
360 LET ALPHA = ALPHA + ADIF 

370 NEXT R 

38@ LET XMOVE = -XCENT: LET YMOVE = -YCENT : GO SUB setorigin 
390 RETURN 


Listing 2.11b 


30D REM celtic/spiral 

321 REM IN =: XCENT, YCENT, RMAX, N, SIGN 

310 LET XMOVE = XCENT: LET YMOVE = YCENT : GO SUB setorigin 
328 PLOT XPEN, YPEN 

330 LET R = @: LET RDIF = RMAX/(N*2): LET S = 1 

339 REM construct the spiral using DRAW to produce a series of semicircles. 
349 FOR I= 1 TO Nx2 

35@ LET R = R + RDIF: LET XPIX = S*R*XYSCALE 

360 DRAW XPIX,0,SIGN*PI 

378 LET S$ = -S 

380 NEXT I 

398 RETURN 


Exercise 2.5 : 

Listing 2.11a produces a diagram similar to figure 2.6a (with XCENT = 0, 
YCENT = 0, N = 4, BETA = 1 and RMAX = 3). What happens if you set RMAX 
to —3? Use the routine in a program that generates figure 2.6c. Again note the 
optical illusion when the observer’s head is moved in a circle in front of the 
diagram, keeping the horizontal (and hence also the vertical) direction parallel 
with the original. The spirals appear to rotate about the centre! 
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Example 2.5 


Spirals have been used in art and design for thousands of years; however, most of 
the ancient spirals were not true spirals but consisted of sequences of semicircles 
(see Bain, 1972). Listing 2.11b (a routine with input parameters RMAX, N and 
SIGN — the orientation value being +1) enables us to draw such semicircular 


spirals using the DRAW option, and so it is much more efficient than the accurate 
method of listing 2.11a (for example, figure 2 6b). 


Figure 2.6 


Exercise 2.6 


Follow the logic of listing 2.11b, and extend it so that the normal to the original 
curve does not go along the x-axis but makes an angle BETA with it. In the Book 
of Kells there are examples of triskeles, which are composed of a set of third- 
circles joined in sequence. Experiment in constructing these and any other 
variations on this method, such as quarter-circles, etc. 
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Example 2.6 
Write a routine (listing 2.12) that draws diagrams similar to figure 2.7. 

Here we introduce the concept of an envelope. Instead of drawing a curve by 
a sequence of small line segments (as in the circle of listing 2.9), we devise a 
sequence of lines that are tangential to the curve. For example, the figure shows 
four rectangular hyperbolae placed in the quarters of the plane. 

N points are placed on each of the four arms (of unit length) that divide the 
plane into the four quarters. The 4N points are therefore (+I/N, 0.0) and (0.0, 
+I/N) where }=1,2,..,N. 


Figure 2.7 


Listing 2.12 


100 REM example of an erwelope 

11@ LET start = 9700: LET setorigin 
: LET moveto = 9500: LET Lineto 

12@ LET FCRIZ = 3: LET VERT = 2.1 

13@ GO SUB start 

14@ LET XMOVE = HORIZ*@.5: LET YMOVE = VERT*@.5 

15@ GO SUB setorigin 

159 REM draw unit axes in graphics area. 

160 INPUT "TYPE N "ZN 


96CB 
9408 


170 LET XPT = 14: LET YPT = @: GO SUB moveto 
180 LET XPT = -1: LET YPT = @: GO SUB Lineto 
198 LET XPT = @: LET YPT = 14: GO SUB Lineto 
200 LET XPT = @: LET YPT = -1: GO SUB tsreto 


208 REM produce N sets each of four points, ome on each axis. 
209 REM join the points of each set in order. 

212 FOR I=1 TON 

220 LET 1D1 = I/N: LET ID2 = (N+ 1 ~- ID/N 


230 LET XPT = ID1: LET YFT = @: GO SUB moveto 
248 LET XPT = @: LET YPT = ID2: GO SUB Lineto 
25@ LET XPT = -ID1: LET YPT = @: GO SUB Lineto 
260 LET XPT = @: LET YPT = -ID2: GO SUB Lineto 
270 LET XPT = ID1: LET YPT = @: GO SUB Lineto 
280 NEXT I 


298 STOP 
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Exercise 2.7 
Generalise this routine so that there is a variable number of arms, M, stretching 
out from the origin and dividing the plane into equal segments. 


Exercise 2.8 

Draw a diagram similar to figure 2.8; the routine will have an integer parameter N. 
It will calculate 4N points {P(I): 1=1,2,...,4N} around the edges of a square 
of unit side, starting at a corner. There is one point at each corner and the points 
are placed so that the distance between consecutive points is 1/N. Then, pairs of 
points are joined according to the following rule: P(1) is joined to P(J) for all 
positive I and J less than or equal to 4N, such that J — I (subtraction modulo 
4N) belongs to the sequence 1,1 +2,1+2+3,...For example, if N is 10, then 
P(20) is joined to P(21), P(23), P(26), P(30), P(35), P(1), P(8) and P(16). The 
outer square should be drawn, and hence if two points lie on the same side of 
the square there is no need to join them by a line since it already exists as an 
edge of the outer square. For example, P(20) is a corner, so it is on the same 
edge as P(16) and also P(21), P(23), P(26) and P(30). 


> 


pre 


ie nae % 
Sar. 


Example 2.7 
Emulate a Spirograph, in order to produce diagrams similar to figure 2.9. 

A Spirograph consists of a cogged disc inside a cogged circle, which is placed 
on a piece of paper. Let the outer circle have integer radius A and the disc integer 
radius B. The disc is always in contact with the circle. There is a small hole in the 
disc at a distance D (also an integer) from the centre of the disc, through which is 
placed a sharp pencil point. The disc is moved around the circle in an anti- 
clockwise direction, but it must always touch the outer circle; the cogs ensure 
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Figure 2.9 


that there is no slipping. The pencil point traces out a pattern, which is complete 
when the pencil returns to its original position. 

Initially we assume that the centres of the disc and the circle and also the hole 
all lie on the positive x-axis, the centre of the circle being the coordinate origin. 
In order to emulate the Spirograph we need to specify a general point on the 
track of the pencil point. We let a be the angle made with the positive x-axis by 
the line joining the origin to the point where the circle and disc touch. The point 
of contact is therefore (A cosa, Asin a) and the centre of the disc is ((A — B) cos 
a, (A — B) sin a). If we let B be the angle that the line joining the hole to the 
centre of the disc makes with the x-direction, then the coordinates of the hole are 


((A — B) cos a+ Dos 6, (A — B) sin at D sin 8) 


The point of contact between the disc and circle will have moved through a 
distance Aw around the circle, and a distance —B6 around the disc (the minus 
sign is because a and 6 have the opposite orientation). Since there is no slipping, 
these distances must be equal, and hence we have the equation 6 = —(A/B)a. 

The pencil returns to its original position when both a and @ are integer multiples 
of 27. When a = 2Nz, then 8 = —N(A/B)2z7: hence the pencil point returns to its 
original position for the first time when N(A/B) becomes an integer for the first 
time; that is, when N is equal to B divided by the highest common factor of B 
and A. The routine ‘Euclid’ (listing 2.13) uses Euclid’s algorithm (see Davenport, 
1952) to calculate the highest common factor (integer HCF) of two positive 
integers A and B. ; 

This function is used in the routine ‘spiro’ (listing 2.13), which calculates 
the value of N and then varies a (ALPHA) between 0 and 2Nz in steps of 1/100; 
for each a, the value of 8 (BETA) is calculated and then the general track is 
drawn. Figure 2.9 was drawn by a call to ‘spiro’ with A= 12, B= 7 and D=5. 
The size of HORIZ and VERT must be chosen so that the figure fits on the 
screen; in this case HORIZ = 30 and VERT = 20. 
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Listing 2.13 


200 REM Euclid 

201 REM IN : A, B 

202 REM OUT : HCF 

212 LET I = A: LET HCF = B 

220 IF A < B THEN LET I = B: LET HCF = A 
230 LET J = I - INT (I/HCF)*HCF 

240 IF J = @ TKEN RETURN 

250 LET I = HCF: LET HCF = J: GO TO 230 


300 REM spiro 

301 REM IN =z Ay By D 

310 LET RAB = A — B: LET ALPHA = @: LET ADIF = PI/5@: LET ACB = A/B 
320 GO SUB Euclid: LET N = B/HCF: LET NC = 18D*N 

330 LET XPT = RAB + D: LET YPT = @: GC SUB mcvetc 

329 REM Calculate and join points (XPT,YPT) on the path of a Spirograph. 
34@ FOR I = 1 TO NO 

35@ LET ALPHA = ALPHA + ADIF 

360 LET BETA = ALPHA*ACE 

77@ LET XPT = RAB*COS ALPHA + D*COS BETA 

380 LET YPT = RAB*SIN ALPHA - D*SIN BETA 

398 GO SUB Linreto 

400 NEXT I 

418 RETURN 


It is evident from this example that drawing patterns is not so straightforward 
as it appears. Even such a simple picture as figure 2.8 requires the mathematical 
backup of Euclid. Progressing through computer graphics, we shall discover more 
and more that it is essential to have at least an elementary knowledge of not only 
coordinate geometry but also calculus, algebra, Euclidean geometry and number 
theory. Be prepared to scour your local library (or pester your friendly neigh- 
bourhood mathematician) for the necessary information. 


Complete Programs 


At this stage we shall group the listings 2.1 (‘start’), 2.2 (two functions FN X 
and FN Y), 2.3 (‘setorigin’), 2.4 (‘moveto’) and 2.5 (‘lineto’) under the heading 
‘lib1’. Later we shall replace listing 2.5 with listing 3.3 (‘clip’ and a new version 
of ‘lineto’). 


I. ‘libl’ and listing 2.6 (‘drawing a square’): no INPUT data. 
II. ‘libl’ and listing 2.7 (‘main program’ and ‘polygon’): requires the number 
of vertices on a polygon, and their X/Y coordinates in pairs(-15 <X < 
15 and -10< Y < 10). 
IH. ‘libl’ and listing 2.9 (‘joining vertices of regular N-gon’): requires an integer 
N <30. 
IV. ‘libl’ and your own ‘main program’ (listing 2.7 will be useful as a model) 
calling listings 2.10a (‘circlel’) and 2.10b (‘circle2’). Each routine requires 
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VI. 
Vi. 
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the centre (XCENT, YCENT) and radius R. Choose these values so that the 
figure is consistent with your values of HORIZ, VERT, XMOVE and 
YMOVE. Try 30, 20, 15 and 10 respectively. As an example call ‘circle1’ 
with centre (1, —1), radius 8 and ‘circle2’ with centre (1, 2), radius 5. 

‘lib1’ and your own ‘main program’ calling listings 2.11a (‘spirall’) and 
2.11b (‘celtic’). Each routine requires the centre (XCENT, YCENT), 
maximum radius RMAX and number of turns in the spiral N. Listing 2.11a 
(‘spirall”) also requires an angle BETA, whereas 2.11b (‘celtic’) needs a 
value SIGN, which is +1. Choose these values so that the figure is consistent 
with your values of HORIZ, VERT, XMOVE and YMOVE (for example, 
30, 20, 15 and 10). For example, call ‘spirall’ with centre (1, —1), RMAX 
= 8,N=3 and BETA = 2, and call ‘celtic’ with centre (1, 2), RMAX =5, 

N =5 and SIGN = —1. Also try SIGN = +1. 

‘lib1’ and listing 2.12 (‘envelope’): requires a integer N, 2 <N < 30. 

‘lib’ and listing 2.13 (‘Euclid’ and ‘spiro’): requires three integers A, B and 
D, where A> B> D. Choose HORIZ, VERT, etc., so that the diagram fits 
on the screen: set XMOVE = HORIZ+0.5, YMOVE = 0.5*VERT (for 
‘setorigin’), where both HORIZ and VERT are greater than 2*(A — B + D). 


3 Two-dimensional Coordinate 
Geometry 


In chapter 2 we introduced the concept of the two-dimensional rectangular co- 
ordinate system; we defined points in space as vectors, from which we were able 
to draw line segments between pairs of points. To be strictly accurate, a straight 
line (or line for short) in two-dimensional space is not a finite segment, but 
stretches off to infinity in both directions, and so we need to introduce ways of 
representing a general point on such a line, 

We are taught that the equation of a straight line is y = mx +c, the relation- 
ship between the x-coordinate and y-coordinate of a general point on the line, 
where m is the tangent of the angle that the line makes with the positive x-axis, 
and c is the point of intersection of the line with the y-axis; that is, when x = 0 
then y =c. This formula may be well known, but it is not very useful. What 
happens if the line is vertical? m is infinite! A far better formula is 


ay=bxt+ec 


This allows for all possible lines: if the line is vertical, a is 0; (b/a) is now the 
tangent of the angle that the line makes with the positive x-axis, and the line 
cuts the y-axis at (c/a), provided that a is not equal to zero, and the x-axis at 
(—c/b), provided that b is not equal to zero. The line is parallel to the y-axis if a 
is zero, and to the x-axis if b is zero. 

We shall frequently use this formulation of a line in the following pages; how- 
ever, we now introduce another, possibly more useful, method for defining a line. 
Before we can describe this new method we must first define two operations on 
vectors (namely, scalar multiple and vector addition), as well as describe another 
required operation — the absolute value of a vector. Suppose we have two 
vectors Pp} =(X,,,) and p, =(x2, 2), then 
scalar multiple kp, =(k x x,,k x y,), we multiply the individual coordinates 
by some scalar value (that is, real) k. 
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vector addition p, + py =(X; +X2,¥1 +2), add the x-coordinates together, 
and the y-coordinates together. 
absolute value |p, \=+/(x7 +7) is the distance of the point p, from the origin 
(this is also called the length, and the amplitude of the vector). 

To define a line we first arbitrarily choose any two points on the line, again 
we call them p,; =(x,, y;) and py =(x2, y2). A general point p(y) = (x, y) is 
given by the combination of scalar multiples and vector addition 


(1—pypitup. for some real value of u 


that is, the vector ((1 —) x x; +x X2,(1 —u) xX ¥, tux V2). We place the 
pin brackets after p to show the dependence of the vector on the value of yu. 
Later when we understand the relationship more fully we shall leave out the (w). 
IfO0 <p <1, then p(y) lies on the line somewhere between p, and p,. For any 
specified point p(z), the value of py is given by the ratio 


distance of p(w) from p; 


distance of p, from p, 


where the measure of distance is positive if p(u) is on the same side of p; as p2, 
and negative otherwise. The positive distance between any two vector points p, 
and p, is given by (Pythagoras) 


IP2 - Pri=V((x1 — x2)? +01 — ¥2)*) 


See figure 2.1, which shows a line segment between points (—3, —1) = p(0) and 
(3, 2) =p(1): the point (1, 1) lies on the line as p(2/3). Note that (3, 2) isa 
distance 3\/5 from (—3, —1), whereas (1, 1) is a distance 2/5. From now on we 
omit the (u) from the point vector. 


Example 3.1 

We can further illustrate this idea by drawing the pattern shown in figure 3.1. At 
first sight it looks complicated, but on closer inspection it is seen to be simply a 
square, outside a square, outside a square, etc. The squares are getting successively 
smaller and they are rotating through a constant angle. In order to draw the 
diagram we need a technique that, when given a general square, draws a smaller 
internal square rotated through this fixed angle. Suppose the general square has 
four corners {(x;, y;)li= 1,2, 3,4} and the i” side of the square is the line 
joining (x; ¥;) to (X41, YH), assuming additions of subscripts are modulo 4 

(that is, 4+ 1 = 1). A general point on this side of the square, (x}, yj), is given by 


(lu) x xX +X X1,C1 —w)X Vi +HX Vir) where O<p<] 
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In fact w:1 — wis the ratio in which the side is bisected. If u is fixed and the four 
points f (xi, ypli=1, 2,3, 4} are calculated in the above manner, then the sides 
of the new square make an angle a= tan! [u/(1 — w)] with the corresponding 
side of the outer square. So, by keeping yp fixed for each new square, the angle 
between consecutive squares remains a constant a. In listing 3.1, which generat- 
ed figure 3.1, there are 21 squares and y= 0.1. 


Listing 3.1 


100 REM square outside square etc. 

110 LET start = 9700: LET setorigin = 9680: LET moveto = 9500 
: LET Lineto = 9400 

120 LET HORIZ = 3: LET VERT = 2.1 

13® GO SUB start 

140 LET XMOVE = HORIZ*0.5: LET YMOVE = VERT*2.5 

15@ GO SUB setorigin 

160 DIM X(4): DIM Y(4): DIM V(4): DIM WC4) 

170 DATA 1,1,1,-1,°1,-1,7141 

179 REM jinitialise first square. 

180 FOR I = 1 TO 4: READ X(1),Y(1): NEXT I 

189 REM set MU value and draw 20 squares. 

190 LET MU = @.1: LET UM = 1 - MU 

200 FOR I= 1 TO 21 

208 REM join four vertices of square (X(J),Y(J)) : J=1:4. 

209 REM calculate next four vertices (V(J),W(J)) J=1:4, 

219 LET XPT = X(4): LET YPT = ¥(4): GO SUB moveto 

220 FOR J = 1 10 4 

230 LET XPT.= X(J): LET YPT = Y(J): GO SUB Lineto 

+ 1: IF NJ = 5 THEN LET NJ = 1 

UM*X (J) + MU*X (NJ) 

UM*Y (J) + MU*xYCNJ) 


nm 
| =e 
m 
4 
= 
[ 
W 
toi oe 


279 REM copy arrays V and W into X and Y. 
280 FOR J = 1 704 

290 LET X(J) = VJ: LET YC) = WO) 

300 NEXT J 

318 NEXT I 

320 STOP 


It is useful to note that the vector combination form of a line can be re- 
organised 


Pit pp. - Pr) 


When given in this new representation the vector p, can be called the base vector, 
and (p, — p;) can be called the directional vector. In fact any point on the line 
can stand as a base vector; it simply acts as a point to anchor a line that is parallel 
to the directional vector. This concept of a vector acting as a direction needs 
some further explanation. We have already seen that a vector pair, (x, y) say, 
may represent a point; a line joining the coordinate origin to this point may be 
thought of as specifying a direction — any line in space that is parallel to this 

line is defined to have the same directional vector. We insist that the line goes 
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Figure 3.1 


from the origin towards (x, y), the so-called positive sense; a line from (x, y) 
towards the origin has negative sense. 

This dual interpretation of a vector, as a point or a direction, is used in the 
following example. 


Example 3.2 

Draw a dashed line, with 13 dashes (and hence 12 spaces between dashes) from 
point p; =(x,, ¥;) top. =(X2, ¥2). This problem is solved by finding the 26 
equi-spaced points on the line; that is p, + i/25 (p2 — pi) where i varies from 

0 (at p,;) to 25 (at p,). We draw consecutively or move between neighbouring 
points using the CalComp ‘plot’ (listing 2.8). There is no need to store the values; 
we already have p, , so, by adding 1/25(p, — p,) each time, we can move through 
all the required points (see listing 3.2). 


Listing 3.2 


100 REM dashed Lines 

110 LET start = 9700: LET plot = 9800 

120 LET HORIZ = 3: LET VERT = 2.1 

130 GO SUB start 

140 LET XPT = HORIZ*@.5: LET YPT = VERT*@.5: LET MODE = -3 

150 GO SUB plot i 

16@ INPUT "TYPE X71 AND Y1 “;xX1;" , ";¥1 

17® INPUT "TYPE X2 AND Y2 "3X27" , "3Y¥2 

179 REM move to first point. 

180 LET XPT = X1: LET YPT = Y1: LET MCDE = 3: GO SUB plot 

198 LET XD = (X2 - X1)/25: LET YD = (Y¥2 - Y1)/25 

199 REM alternately draw and move to next 25 points on the Line. 
200 FOR I = 7 TO 25 

218 LET XPT = XPT + XD: LET YPT = YPT + YD: LET MODE = 5 - MODE: GO SUB plot 
220 NEXT I 

230 STOP 
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Exercise 3.1 

Experiment by drawing different types of dashed lines: for example, (a) the size 
of the dash could be twice that of the space between; (b) the size of the dash 
could be a fixed numerical value and the number of dashes unknown; (c) the 
dashes could vary in size, alternating between large and short dashes, where the 
relationship between the types of dashes and the spaces could be input variables. 


This base and direction representation is also very useful for calculating the 
point of intersection of two lines, a problem that frequently crops up in two- 
dimensional graphics. Suppose we have two lines p + wg and r + As, where 
P= (1,¥1),9 = (X2, V2), 7 =(%3, ¥3) and s =(Xq, Ya) for co <p, A < oc. We 
need to find the unique values of y and A such that 


ptugq=rt+drs 


that is, a point that is common to both lines. This vector equation can be written 
as two separate equations 


X, +UX X2 =XZ FAX Xyq (3.1) 


Vi tHX V2 =V3tAX Ya (3.2) 
Rewriting these equations we get 


HX X_ —AX Xq =X3— Xy (63) 


MX Y2 —AX Va = V3 -Vi (3.4) 
Multiplying (3.3) by v4, (3.4) by xq and subtracting we get 
MX (X2 X Yq — V2 X Xq) = (3 — 21) X Va — (3 — V1) XX 


If (x. X Yq —Yz X Xq)=0 then the lines are parallel and there is no point of 
intersection (u does not exist), otherwise 


2 (x3 —X%1)X Va —W3 — V1) X Xe 


m (3.5) 
(%2 X V4 — V2 X X4) 
and similarly 
yw 3 *1) x ¥2 — Os —I1) X Xs (3.6) 


(x2 X Va — V2 X X4) 


The solution becomes even simpler if one of the lines is parallel to a coordin- 
ate axis. Suppose this line is x = d, then we can set r =(d, 0) ands =(0, 1), 
which when substituted in equation (3.5) gives 
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u=(d—x,)/Xo 

and similarly if the line is y =d 
M=(d—-yi)ly2 

Naturally if both lines are parallel then the denominator in these equations 


becomes zero and we get an infinite result, because the two parallel lines do not 
intersect. 


Example 3.3 
Find the point of intersection of the two lines (a) joining (1, —1) to (—1, —3) and 
(b) joining (1, 2) to (2, —2). 

The lines may be written 


(1 —w) (1, -1) +u(-1, -3) —2<p<co (3.7) 
(1 —A) (1, 2) +A(2, 2) 0 <A<00 (3.8) 


or when placed in the base/directional vector form 


G, =i + ne4,-2) (3.9) 
(1, 2) +A, —4) (3.10) 


Substituting these values in equation (3.5) gives 


_ (=1)x-4-@41)x2_ 
(239 27-7) 6) 


1/2 


whence the point of intersection is (1, -1) — 1/2(—2, —2) =(2, 0). 


Exercise 3.2 

Experiment with this concept of vector representation of two-dimensional space. 
You can make up your own questions: it is easy to check that your answers are 
correct. Consider example 3.2. We know that (2, 0) lies on the first line because 
we used the value yz = —1/2: our answer is correct if it also lies on the second line; 
it does with A = 1/2. 


Exercise 3.3 

Write a program that reads in data about two straight lines (it can be either in the 
form of equations, or in the base/directional vector form) and then calculates 
their point of intersection (if any). 
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Clipping 


By now you will have realised that it is impossible to PLOT, or DRAW, to a 
pixel (x, y) outside the graphics area, and thus we are limited to 0 <x < 255 
and 0 <y <175. It is far too easy to stray inadvertently outside this area. In 
fact when drawing two-dimensional and three-dimensional scenes it is common- 
place to define scenes that cover an area greater than that allocated to graphics 
on the Spectrum. So it is necessary to find an algorithm that will clip off all 
exterior line segments without losing any that should be drawn, 

We assume that the centre of the screen is given by the (non-pixel) point 
(255/2, 175/2) = (127.5, 87.5) and thus the four corners of the graphics area 
are (127:5 + 127.5, 87.5 + 87.5). Our problem reduces to calculating which part 
(if any) of a line segment joining pixel point (XA, YA) to pixel point (XB, YB) 
lies within the area. In order to simplify matters we redefine our pixel coordinate 
system to let the centre of the screen be the origin, by subtracting the vector 
(127.5, 87.5) from the coordinates of original points. The graphics rectangle 
now has corners (+127.5, +87.5). We extend the sides of the rectangle, thus 
dividing space into nine sectors; see figure 3.2, which also shows the graphics 
area and the BORDER. In this diagram a number of different line segments have 
been drawn to aid the explanation of the algorithm. Each point in space may 
now be classified by two parameters IX and IY where 


(1) IX = —-1,0 or +1 depending on whether the x-coordinate value of the point 
lies to the left, on or to the right of the graphics area; 

(2) TY = -1, 0 or +1 depending on whether the y-coordinate of the point lies 
below, on or above the graphics rectangle. 


These values are calculated, when needed, inside the algorithm program. 


If the two points at the end of the line segment — that is, (XA, YA) and 
(XB, YB) — have parameters IXA and FYA, and [XB and IYB respectively, then 
there are a number of possibilities to consider. 
(i) If IXA=IXB+#0orlIYA=IYB #0, then the whole line segment is outside 
the rectangle and hence may be safely ignored; for example, line AB in figure 
Sige 
(ii) If XA =TIYA = IXB =TYB = 0, then the whole line segment lies in the 
graphics area and so the complete line must be drawn; for example, line CD. 
(iii) The remaining case must be considered in detail. If IXA #0 and/or IYA #0 
then the point (XA, YA) lies outside the rectangle and so new values for XA and 
YA must be found — to avoid confusion we will call these XA’ and YA’. (XA’, 
YA’) is the point on the line segment nearer to (XA, YA) where the line cuts the 
graphics area. The formula for this calculation was considered above; that is, the 
intersection of a line with another line parallel to a coordinate axis. If the line 
misses the rectangle, then we define (XA’, YA’) to be that point where the line 
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Figure 3.2 


cuts one of the extended vertical edges. If IXA = IYA = 0 then (XA’, YA’) = 
(XA, YA). The point (XB’, YB’) is calculated in a similar manner; see the algor- 
ithm given by routine ‘clip’ in listing 3.3. The required clipped line is that joining 
(XA’, YA’) to (XB’, YB’). If the original line misses the rectangle then the 
algorithm ensures that (XA’, YA’) = (XB’, YB’) and the new line segment 
degenerates to a point and is ignored. For example, EF is clipped to E’F’, GH 

is clipped to GH’ (G = G’) and IJ degenerates to a point I' = J’. 

Thus ‘clip’ takes the two pixel end points of the line, (XA, YA) and (XB, YB), 
and transforms them into the centred system. It then discovers which of the 
above three possibilities is relevant and deals with it thus: (i) exit the routine 
immediately; (ii) join the two points; or (iii) calculate the ‘dashed’ points and 
join them with a line. 

Listing 3.3 also includes a new version of ‘lineto’ routine that calls ‘clip’ 
instead of PLOT and DRAW, thus enabling it to cope with the problem of join- 
ing lines anywhere in space. From now on always use this new version of ‘lineto’. 
It will prove invaluable, especially in the study of three-dimensional objects. 


Exercise 3.4 
Use this altered routine in the programs of chapter 2. Choose values of HORIZ 


and VERT in such a way that some lines in the diagrams go outside the graphics 
area. 
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Listing 3.3 

8400 REM clip 

8401 REM IN : XA,YA,XB,YB 

8409 REM change coordinate system. 

841@ LET XA = XA — 127.5: LET YA = YA - 87.5: LET XB = XB - 127.5 
: LET YB = YB - &7.5 

8419 REM find the sector values of two points (XA,YA) AND (XB,YB). 

8420 LET IXA = @: IF ABS XA > 127.5 THEN LET IXA = SGN XA 

8430 LET IYA = @: IF ABS YA > 87.5 THEN LET IYA = SGN YA 

8440 LET IXB = @: IF ABS XB > 127.5 THEN LET IXB = SGN XB 

8450 LET IYB = @: IF ABS YB > 87.5 THEN LET IYB = SGN YB 

8459 REM points in same off-screen sector then return. 

8460 IF IXA*IXB = 1 OR IYA*IYB = 1 THEN RETURN 

8470 IF IXA = @ THEN GO TO 8500 

8479 REM move 1'st point to nearer x-edge. 

8488 LET XX = 127.5*IXA: LET YA = YA + CYB — YA)*(XX — XA)/(XB - XA) 
: LET XA = XX 

8490 LET IYA = @: IF ABS YA > 87.5 THEN LET IYA = SGN YA 

8502 IF IYA = @ THEN GO TO 8515 

8509 REM move 1'st point to nearer y-edge. 

8510 LET YY = 87.5*IYA: LET XA = XA + (XB — XA)*CYY - YA)/(CYB - YA) 
> LET YA = YY 

8515 IF ABS (XA - XB) < B.@00201 AND ABS CYA - YB) < 8.002001 THEN RETURN 

8520 IF IXB = @ THEN GO TO 8558 

8529 REM move 2'nd point to nearer x-edge. 


8530 


8540 
8558 
8559 
8568 


85708 
8579 
8588 


8590 


9400 
9461 
9401 
9418 
9420 
9430 
9440 
9458 
9468 


LET XX = 127.5*IXB: LET YB = YA + CYB - YA)*(XX — XA)/(XB —- XA) 
> LET XB = XX 

LET IYB = @: IF ABS YB > 87.5 THEN LET IYB = SGN YB 

IF IYB = @ THEN GO TO 8570 

REM move 2'nd point to nearer y-edge. 

LET YY = 87.5*IYB: LET XB = XA + (XB — XA)*CYY - YA)/CYB - YA) 
: LET YB = YY 

IF ABS (XA — XB) < ®.@02021 AND ABS CYA - YB) < @.020001 THEN RETURN 
REM plot non-coincident points. 

LET XA = INT (XA + 128): LET YA = INT CYA + 88) 

: LET XB = INT (XB + 128): LET YB = INT (YB + 88) 

PLOT XA,YA: DRAW XB - XA,YB - YA: RETURN 


REM Lineto/ clipping 

REM IN : XPT,YPT,XPEN, YPEN 
REM OUT : XPEN,YPEN 

LET XA=XPEN: LET YA=YPEN 
LET XPEN=FN X(XPT) 

LET YPEN=FN YCYPT) 

LET XB=XPEN: LET YB=YPEN 

GO SUB clip 

RETURN 


Returning to the use of a vector (¢ =(x, y) #(0, 0), say) representing a 
direction, we note that any positive scalar multiple kq, for k > 0, represents the 
same direction and sense as q. (If k is negative then the direction has its sense 
inverted). In particular, setting k = 1/1q| produces a vector (x/\/(x? + y?), 
y/V/(x? + y?)) with unit absolute value. 

Thus a general point on a line, p + wq, isa distance |uq| from the base point 
p, and if |q| = 1 (a unit vector) then the point is a distance |u| from p. 

We now consider the angles made by directional vectors with various fixed 
directions. Suppose that a is the angle between the line joining O (the origin) to 
q =(x, y), and the positive x-axis. Then x = |qg!x cos aand y = |q|x sin a; see 
figure 3.3 — there are similar figures for the three other quadrants. 
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If q is a unit vector (that is, |qg!= 1) then g =(cos a, sin a). We note that sin a= 
cos (a — 7/2) for all values of a. Thus we can rewrite g = (cos a, cos (a — n/2)), 
but a — 7/2 is the angle that the vector makes with the positive y-axis. Hence the 
coordinates of a unit directional vector are called its direction cosines, since they 
are the cosines of the angle that the vector makes with the corresponding positive 
axes. 

Before continuing, we should take a look at the trigonometric functions avail- 
able in BASIC: SIN and COS, and the inverse function ATN. SIN and COS are 
functions with one parameter (an angle given in radians) and one result (a value 
between —1 and +1). The ATN function takes any value and calculates the angle 
in radians (in the so-called principal range between —n/2 and +n/2) whose 
tangent is that value. 

This leads us to the problem of finding the angle that a general direction 
q =(x, y) makes with the positive x-axis, which is solved by routine ‘angle’ given 
in listing 3.4; ‘angle’ will be of great use in later chapters when we consider three- 
dimensional space. 


Listing 3.4 


8802 REM angle 

8801 REM IN : AX,AY 

8802 REM OUT : THETA . 
8889 REM THETA is the angle made by Line to (AX,AY) with t+ve x-axis. 
8812 IF ABS AX > 2.20201 THEN GO TO 8860 

8819 REM Line is vertical. 

8820 LET THETA = PI/2 

8830 IF AY < ® THEN LET THETA = THETA + PI 

8840 IF ABS AY < @.@0001 THEN LET THETA = @ 

8850 RETURN 

8859 REM Line not vertical so it has finite tangent. 
8862 LET THETA = ATN CAY/AX) 

8870 IF AX < @ THEN LET THETA = THETA + PI 

888@ RETURN 
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Now suppose we have two directional vectors (a, b) and (c, d); for simplicity 
we can assume that they are both unit vectors and they pass through the origin 
(see figure 3.4). We wish to calculate the acute angle, a, between these lines. 
From the figure we note that OA =./(a? + b?) = 1 and OB=(c? +d?) =1. 
So by the Cosine Rule 


AB? = OA? + OB? — 20A x OB x cos a= 2 x (1 — cosa) 


But also by Pythagoras 


AB? = (a —c)? +(b— dy’ = (a? +b?) +(c? +d?) -2 (ax ct+bx d) 
=2—2(ax ct+bx ad) 


Thus a x c+bx d=cosa. It is possible that a x c +b x d is negative, in which 
case cos? (a x c+ b x d) is obtuse and the required acute angle is 7 — a. Since 
cos (1 — @) = —cos a, then the acute angle is given immediately by cos! (la x c 
+b x d|). For example, given the two lines with direction cosines (./(3/2), 1/2) 
and (—1/2, —/(3/2)), we see that a x c+ b xd = —+/(3/2) and thus a = cos! 
(/(3/2)) = 2/6. This simple example was given in order to introduce the concept 
of a scalar product - of two vectors, (a, b) + (c, d)=a x c +b x d. Scalar product 
is extendable into higher dimensional space (see chapter 7 for a three-dimensional 
example) and it always has the property that it gives the cosine of the angle 
between any pair of lines with directions defined by the two vectors. 


Curves: Functional Representation versus Parametric Forms 


A curve in two-dimensional space can be considered as a relationship between x 
and y coordinate values, the so-called functional relationship. Alternatively the 
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coordinates can be individually specified in terms of other variables or para- 
meters, the parametric form. 

We have already seen that a line (a circular arc of infinite radius) may be 
expressed as ay = bx + c. If we rearrange the equation so that one side is zero 
(that is, av — bx — c = 0) then the algebraic expression on the left-hand side of 
the equation is called a functional representation of the line and written 


f (x, y)=ay — bx —c 


All, and only, those points with the property f(x, v) = 0 lie on the curve. This 
representation divides all the points in two-dimensional space into three sets, 
namely f(x, y) = 0 (the zero set), f(x, y) > 0 (the positive set) and f(x, y) <0 
(the negative set). If the function divides space into the curve and two other 
connected areas only (that is, any two points in a connected area can be joined 
by a curvilinear line that does not cross the curve), then these areas can be 
identified with the positive and negative sets defined by f. However, be wary, 
there are many elementary functions (for example, g(x, y) = cos (v) — sin (x)) 
that define not one but a series of curves and hence divide space into possibly an 
infinite number of connected areas (note g(x, y) = g(x + 2mm, y + 2nm) for all 
integers m and 7). So it is possible that two unconnected areas can both belong 
to the positive set. 

Note that the functional representation need not be unique. We could have 
put the line in an equivalent form 


f' (x,y) = bx +0 —ay 


in which case the positive set of this function is the negative set of our original, 
and vice versa. 

The case where the curve does divide space into two connected areas is very 
useful in computer graphics, as we shall see in a study of two-dimensional and 
(especially) three-dimensional graphics algorithms. For example, take the straight 
line 


f (x, y) = ay — bx —c 


where a point (x, y,) is on the same side of the line as (x2, y2) if and only if 
f (x1, ¥1) has the same non-zero sign as f(x, v2). The functional representation 
tells us more about a point (x,, ¥,) than just which side of a line it lies — it also 
enables us to calculate the distance of the point from the line. 

Suppose we have the above line, then its direction vector is (a, b). A line per- 
pendicular to this will have direction vector (—b, a) (why? the product of the 
tangents of two mutually perpendicular lines is —1: see McCrae, 1953). So the 
point q on the line closest to the point p = (x,, y,) is of the form 
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q =(%1,¥1) + w-4, a) 


that is, a new line joining p to g is perpendicular to the original line. Since q lies 
on this original line 


F@)=f(%1,¥1) t+H(—6, a)) = 0 


and hence 
ax (vy, tux a)—bx (x, —y x b)—c=f(x1,)1) tu@’ +b7)=0 


Hence w= —f(x,, yj)/(a@? + b*). The point q is a distance u x |(—b, a)| from 
(x,, 1), which naturally means that the distance of (x,, y, ) from the line is 
ux Va? +b?) =—-f(%1, ¥1)/V(@? + b?): the sign denotes on which side of the 
line the point is lying. If a? + b? = 1 then | f(x,, y,)I gives the distance of the 
point (x;, ¥,) from the line. 

This idea leads us straight to a way of implementing convex areas; that is, an 
area with the property that a straight line segment joining any two points within 
the area lies totally inside the area. We limit our study to convex polygons, how- 
ever, since it is obvious that any convex area may be approximated by a polygon, 
providing it has enough sides. 

Suppose we have a convex polygon with n vertices {p;=(x;.¥;)li=1,...; 

n } taken in order around the polygon either clockwise or anti-clockwise; we 
shall call such a description of a convex polygon an oriented convex set of 
vertices. The problem of finding whether such a set is clockwise or anti-clockwise 
is considered in chapter 7. The m boundary edges of the polygon are segments of 
the lines 


fi, Y) = On — x) X & — Yd) — Wir — Vi) X (& — X32) 


where7?=1,...,”, and the addition in the subscripts is modulo n (that is,n +7 = 
j for 1 <j <n). Try to explain why these formulae do actually describe the line 
segments! 

This systematic definition of the lines enables us to define the inside of the 
convex area. Any given line segment, say the one joining p; to pj, for some j, is 
such that the points inside the body must lie on the same side of this line as the 
remaining vertices of the polygon, in particular p;,..So the inside is given by 


{(x, y)I sign of f(x, ») = sign of fiCc2, Yn) #0:7=1,...,n} 
A point on the boundary is given by 


{(x, y)|there exists one /, or two if (x, y) is a corner, where 
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1 <j <n such that fj(x, y) = 0 and 
sign of f;(x, ¥) = sign of fj #2, Vin) FO:T #7 and 1 <i<n} 


A point outside the area is defined by 


{(x, y)l| there exists one j, 1 <j <n such that 
0 # sign of f(x, y) # sign of Fi Xp, Vin) F o} 


Naturally the additions of subscripts are all modulo x. 


Example 3.4 

Suppose we are given the convex polygon with vertices (1, 0), (5, 2), (4, 4) and 
(—2, 1) (see figure 3.5). In this order the vertices obviously have an anti-clock- 
wise orientation. Are the points (3, 2), (1, 4), (3, 1) inside, outside or on the 
boundary of the polygon? What is the distance of (4, 4) from the first line? 


I 
fui 
| 
ful 
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Figure 3.5 


fi, yy=(6 -—1)x WY —0)-(@ —-0)x (& — 1) =4y — 2x +2 
fa (x, y) = (4 —5)x ( — 2) — (4 — 2) x (x —5)=—y — 2x +12 
f3(%, ¥) =(-2 — 4) x @ —4) -C -—4)x & — 4) =—-6y + 3x +12 
fa(x. y)=(1 + 2)x (vy —1)—- (0-1) x +2) =3yt+x-1 
Hence point (3, 2) is inside the body because /, (3, 2) = 4 and f, (4, 4) = 10; 
f2 3,2) =4 and f, (-2, 1) = 15; f5 GB, 2) =9 and f; (1,0) = 15; fy (3, 2) =8 
and f, (5, 2)= 10 — all with the same positive signs. 


Point (1, 4) is outside the body because f; (1,4) = —9 and f; (1,0) = 15 — 
opposite signs. 
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Point (3, 1) is on the boundary because f, (3,1) =0, f2 3, 1)=5, fs G, 1) = 15 
and f, (3, 1)=5. 

In fact there is no need to work out f;(Xj+2, V+) for every i, they all have the 
same sign so once we have calculated f, (x3, v3) then we can work with this 
value throughout. 

(4, 4) is a distance f, (4, 4)//(4? + 27) = 10/4/20 =. 


Exercise 3.5 

Imagine two convex polygons that intersect one another. The area of inter- 
section is also a convex polygon. Use the methods mentioned in this chapter to 
calculate the vertices of the new polygon. 


Having dealt with the functional representation of a line, what about the 
parametric form? We noted that this form is one where the x-coordinate and y- 
coordinate of a general point on the curve are given in terms of parameter(s) 
(which might be the x-value and the y-value themselves), together with a range 
for the parameter. So we have already seen a parametric form of a line: it is 
simply the base and directional representation 


b + pd =(%1,¥1) + U2, Y2) 
=(x, +ux X2,¥; t+HX Y2) where —-o<p<oo 


wis the parameter, and x, +x x2 andy, +x yz, are the respective x-value 
and y-value, depending only on variable yp. 

We can also produce functional representations and parametric forms for 
most well-behaved curves. For example, a sine curve is given by f(x, y)=y — 
sin (x) in functional representation, and by (x, sin (x)) with —coo <x < © in its 
parametric form. The general conic section (ellipse, parabola and hyperbola) is 
represented by the general function. 


f(x, y)=axx?+bxy? thxxxytfxxtgexyte 


where coefficients a, b, c, f, g, h uniquely identify a curve. A circle centred at 
the origin of radius r hasa = b = 1, f=g=h=0andc = —r’, whence f(x, y)= 
x? +y? —r?. All the points (x, y) on the circle are such that f(x, v) = 0, the 
inside of the circle has f(x, vy) < 0, and the outside of the circle f(x, vy) > 0. 
The parametric form of this circle is (7 cos a, r sin a) where O <a < 27. (We 
have already met the parametric form of a circle, ellipse and spiral in chapter 2). 

It is very useful to experiment with these (and other) concepts in two- 
dimensional geometry. There will be many occasions when it is necessary to 
include these ideas in programs, as well as the ever-present need when generating 
coordinate data for diagrams. 
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Example 3.5 
Suppose we wish to draw a circular ball (radius r) disappearing down an elliptical 
hole (major axis a, minor axis b), see figure 3.6. Parts of both the ellipse and 
circle are obscured. 

Let the ellipse be centred on the origin with the major axis horizontal, and 
the centre of the circle a distance d vertically above the origin. The ellipse has 
functional representation 


fe (x,y) =x? /a? +y7/b? —1 
and in parametric form 
(a x cosa, bx sina) withO<a<2n 
For the circle 
fo (x,y) =x? +(y —dP —?? 
and in parametric form 
(rx cosA,dt+rx sind) where O<\A\<27 


To generate the picture we must find the points (x, y) common to the circle and 
ellipse (if any). As a useful demonstration we shall mix the representations in 
searching for a solution, using the functional representation for the circle and the 
parametric form of the ellipse. 

So we are searching for the points (x, y) =(a x cosa, b x sin a) on the 
ellipse, which also satisfy f, (x,y) = 0. That is 


a* x cos? at+(bx sina—d)*? —r? =0 


and a? x cos* a+b? x sin? a—2x bx dx sinat+d? —r* =0 
And since cos? a= 1 — sin? a 
(b? — a?) x sin?ta—2xbxdxsinata? +d? —r?=0 


This is a simple quadratic equation in the unknown sin a@, which is easily solved 
(the quadratic equation Ax? + Bx + C= 0 has two roots (—B +-/(B? —4x Ax 
C))/(2 x A)). For each value of sin a we can find values for a withO<a<27 
(if they exist) and we can then calculate the points of intersection (a@ x cos a 
bx sin a). 

There is no hard and fast rule regarding which representation to use in any 
given situation — a feel for the method is required and that comes only with 
experience. 
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Exercise 3.6 
Write a program that will draw figure 3.6. 


Complete Programs 


I. ‘ibl’ and listing 3.1: no data required. 
II. Listings 2.1, 2.8 and 3.2: data are two coordinate pairs (X1, Y1) and 
(X2, Y2), where —3 < X1, X2 <3 and -2.1< Y1, Y2<2.1. 
Note: from this point listing 3.3 (‘clip’ and a new version of ‘lineto’) will 
replace listing 2.5 in ‘lib1’. 
III. The same as I above, but with the new ‘lib1’: change HORIZ to 1.5 and 
VERT to 1. 
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4 Matrix Representation of 
Transformations on Two- 
Dimensional Space 


In chapter 2 we saw the need to translate pictures of objects about the screen. 
Rather than perpetually change the screen coordinate system, it is conceptually 
much easier to define an object in the most simple terms possible (as vertices in 
the form of pixel or coordinate values, together with line and area information 
related to the vertices), and then transform the object to various parts of the 
screen while keeping the screen coordinate system fixed. We shall restrict our- 
selves to linear transformations (see below). It will often be necessary to trans- 
form a large number of vertices, and to do this efficiently we use matrices. 
Before looking at such matrix representations we should explain exactly what is 
meant by a matrix, and also by a column vector. In fact we restrict ourselves to 
square matrices; to 3 X3 (said 3 by 3) for the study of two-dimensional space, 
and later we shall use 4 X 4 matrices when considering three-dimensional space. 
Such a3 X 3 matrix (A say) is simply a group of real numbers placed in a block 
of 3 rows by 3 columns: a column vector (D say) is a group of numbers placed 
in a column of 3 rows 


Ai Ai Ai3 D, 
Ay Aa Ay3 and D, 
A3; Az. As33 D; 


A general entry in the matrix is usually written A;;, the first subscript denotes 
the i row, and the second subscript the j column (for example, A, repre- 
sents the value in the second row, third column). The entry in the column vector, 
D;, denotes the value in the i row. All these named entries will be explicitly 
replaced by numerical values and it is important to realise that the information 
stored in a matrix or column vector is not just the individual values but also the 
position of these values within the matrix or vector. Naturally BASIC programs 
are written along a line (no subscripts or superscripts), and hence matrices and 
vectors are implemented as arrays and the subscript values appear inside round 
brackets following the array identifier. 

Matrices can be added. Matrix C= A + B, the sum of two matrices A and B, is 
defined by the general entry C;; thus 
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C= Aygt By 1<47<3 

Matrix A can be multiplied by a scalar k to form a matrix B 
By=kx Ay 1Si,7<3 


We can multiply a matrix A by a column vector D to produce another column 
vector FE thus 


E;= Aj, x D, + Aj. X Dz + Aj3 X BaP Bak Ps where 1 <i <3 


The i row element of the new column vector is the sum of the products of the 
corresponding elements of the i" row of the matrix with those in the column 
vector. 


Furthermore, we can calculate the product (matrix) C= A X B of two mat- 
rices A and B 


Cy=An Xx By; +A Xx Bi; + Ajs x B3j= DAix x Bxj where 1 <i,/ <3 


We take the sum (in order) of the elements in the i row of the first matrix 
multiplied by the elements in the / column of the second. It should be noted 
that the product of matrices is not necessarily commutative; that is, A X B need 
not be the same as B XA. For example 


\ 


010 001 O10 001 010 100 
001 4;xX}010)}=1|100)but(010)xX/001)}=([001 
100 100 001 100 100 010 


Experiment with these ideas until you have enough confidence to use them in 
the theory that follows. For those who want more details about the theory of 
matrices we recommend books by Finkbeiner (1978) and by Stroud (1982). 

There is a special matrix called the identity matrix I (sometimes called the 
unit matrix) 


100 
L210 19 
001 


Also for every matrix A we can calculate its determinant det (A) 


det (A) = Ay, X (Ao2 X A33 — Az3 X A32) t+ Ai2 X (A423 X Az, — Aas X A333) 
+A43 X (Aoi X A32 — Aaa X Asi) 
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Any matrix whose determinant is non-zero is called non-singular, and with zero 
determinant singular. All non-singular matrices A have an inverse A~! , which has 
the property that A X A~! =J and A~' X A =I, For methods of calculating an 
inverse of a matrix see Finkbeiner (1978): we give a listing in chapter 7 (listing 
7.5), which uses the Adjoint method. 

We now consider transforming points in space. Suppose a point (x, y) — 
‘before’ — is transformed to (x’, y’) — ‘after’. We understand the transformation 
completely if we can give equations relating the ‘before’ and ‘after’ points. A 
linear transformation is one that defines the ‘after’ point in terms of linear com- 
binations of the coordinates of the ‘before’ point; that is, the equations contain 
only multiples of x, y and additional real values -- it includes neither non-unit 
powers or multiples of x and y, nor other variables. Such equations may be 
written 


x'=A,,x x+A12xX yY+Aj3 


y'=Aq, X X +A. X VHAg,3 


The A values are called the coefficients of the equation. As we can see, the result 
of the transformation is a combination of multiples of x-values, y-values and 
unity. We may add another equation 


1=A3, X x+Aa xX V +A33 


For this to be true for all values of x and y, we see that Az; =A32 =O and 

A33 = 1. This may seem a pointless exercise but we shall see that it is very useful. 
For if we set each point vector (x, y) (also called a row vector for obvious 
reasons) in the form of a three-dimensional column vector 


x 


A 
1 


then the above three equations can be written in the form of a matrix multiply- 
ing a column vector 


Ai: Ai3 Ai3 x 
Y }=[Aar Az3 Azz] X[ 
\1 A3, A32 A33 1 


So if we store the transformation as a matrix, we can transform every required 

point by considering it as a column vector and premultiplying it by the matrix. 
Many writers of books on computer graphics do not like the use of column 

vectors. They prefer to extend the row vector (for example, (x, y) to (x, y, 1)), 
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and postmultiply the row vector by the matrix so that the above equations in 
matrix form become 


Ay; Az, Azy 
(xy D=@,y¥, 1)X | Aig Azz. Az 
Ars Az3 A33 


Note that this matrix is the transpose of the matrix of coefficients in the equa- 
tions. This causes a great deal of confusion among those who are not confident 
in the use of matrices. It is for this reason that in this book we keep to the 
column vector notation. As you get more practice in the use of matrices it is a 
good idea to rewrite some (or all) of the following transformation routines in 
the other notation. It is not important which method you use finally, as long as 
you are consistent. (Note the transpose B of a matrix A is given by B;; = A 
where 1 <i,7 <3.) 


ji- 


Combination of Transformations 


A very useful property of this matrix representation of transformations is that if 
we wish to combine two transformations on (say) transformation (= matrix) A 
followed by transformation B, then the combined transformation is represented 
by their product C= B X A: note the order of multiplication — the matrix 
representing the first transformation is premultiplied by the second. This is 
because the final matrix will be used to premultiply a column vector represent- 
ing a point, and so the first transformation matrix must appear on the right of 
the product and the last on the left. (If we had used the row vector method then 
the product would appear in the natural order from left to right — this is the 
price we pay for identifying the transformation matrix with the coefficients of 
the equation.) 

So we need to introduce a routine ‘mult2’, which forms the product of two 
matrices. The BASIC computer language does not allow the transmission of array 
parameters into routines, so we must invent an efficient means of coping with 
this limitation. We assume that all matrix multiplication operates on matrices A 
and RK giving the product matrix B, and after the product is complete B is copied 
back into R. The reason for the choice of identifiers and the final copy will 
become evident as we progress. We also need a routine (‘idR2’), which sets R to 
the identity matrix. Should we need to form the product of a sequence of 
matrices we first set R = J and then for each of the matrices from right to left, 
we name each A and call the routine ‘mult2’ in turn. At the end of the process, 
R contains the matrix product of the sequence (see listing 4.1). 
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Listing 4.1 


9100 REM mult2 

9101 REM IN : AC3,3),R(3,3) 
9102 REM OUT : R(3,3) 

9112 FOR T= 1 10 3 

9120 FOR J 
9130 LET AR = 
9140 FOR K = 1 TO 3 

9150 LET AR = AR + ACI,K)*R(K,J) 
916 NEXT K 

9170 LET BCI,J) = AR 

9182 NEXT J 
$198 NEXT I 
9200 FOR I = 
9212 FOR J = 
9220 LET RCI, 
9230 NEXT J 
9248 NEXT I 
9250 RETURN 


9300 REM }dR2 

9302 REM OUT : R(3,3) 
9312 FOR I= 1 TO 3 
9320 FOR J = 1 TO 3 
9330 LET R(I,J) =@ 
9340 NEXT J 

935@ LET R(I,I) = 1 
9360 NEXT I 

937 RETURN 


All natural transformations may be reduced to a combination of three basic 
forms of linear transformation: translation, scaling and rotation about the co- 
ordinate origin. It should also be noted that all valid applications of these 
transformations return non-singular matrices. The routines that follow generate 
a matrix called A for each of the three types of transformation, so that each 
transformation routine can be used in conjunction with ‘mult2’ to produce 
combinations of transformations. 


Translation 


A ‘before’ point (x, y) is moved by a vector (TX, TY) to (x', y') say. This 
produces the equations 


x'=1xxt+O0x y+TX 


y=Oxxtlx yt TY 


so the matrix describing this transformation is 
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1 0 TX 
Oni. Ty, 
O20T! 


And a routine, ‘tran2’, for generating such a matrix A, given the values TX and 
TY is given in listing 4.2. 


Listing 4.2 


9000 REM tran2 

9021 REM IN : TX,TY 
90M2 REM OUT : A(3,3) 
9012 FOR I= 1 TO 3 
9020 FOR J = 1 TO 3 
9038 LET ACI,J) =@ 
9040 NEXT J 
9050 LET ACI,1) 
906@ NEXT I 
9070 LET A(1,3) = TX: LET AC2,3) = TY 
9088 RETURN 


1 


Scaling 


The x-coordinate of a point in space is scaled by a factor SX, and the y-coordin- 
ate by SY, thus 


x’ =SXx xt+0x y+0 


y =Oxx+SYxytO0 


giving the matrix 


Sx 0 O° 
0 SY 0 
OFFo, A 


\ 


Usually SX and SY are both positive, but if one or both are negative this creates 
a reflection as well as a scaling. In particular, if SX = —1 and SY = 1 then the 
point is reflected about the y-axis. A program segment, ‘scale2’, to produce such 
a scaling matrix A given SX and SY is given in listing 4.3. 


Listing 4.3 


8902 REM scale2 

8901 REM IN : SX,SY 
8982 REM OUT : A(3,3) 
8910 FOR T= 1 TO 3 
892@ FOR J = 1 TO 3 
8930 LET ACI,J) = @ 
8948 NEXT J 
8950 NEXT I 
896@ LET AC1,1) 
8978 LET AC3,3) 
RORA RETURN 


SXs LET AC2,2) = SY 
1 
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Rotation about the Origin 


If we rotate a point in an anti-clockwise direction (the normal mathematical 
orientation) about the origin by an angle @ then the equations are 


x'=cos@x x —sin@x y+0 


y'=sin@ x x +cos@x y+0 
and the matrix is 


cos@ —sin@ O 
sin@ cos@ QO 
0 0 1 


The routine, ‘rot2’, to produce a rotation matrix, A, for an angle @ is given in 
listing 4.4. 


Listing 4.4 


8600 REM rot2 

8601 REM IN : THETA 

8602 REM OUT : AC3,3) 

8612 FOR 1 = 1 TO 3 

8628 FOR J = 1 TO 3 

8630 LET ACI,J) =@ 

8648 NEXT J 

8650 NEXT I 

8660 LET A(3,3) =1 

8670 LET CT = COS THETA: LET ST = SIN THETA 
8680 LET A(1,1) = CT: LET A(2,2) = CT 
8690 LET A(1,2) = -ST: LET A(2,1) = ST 
8720 RETURN 


Inverse Transformations 


For every transformation there is an inverse transformation that will restore the 
points in space to their original position. If a transformation is represented by a 
matrix A, then the inverse transformation is represented by the inverse matrix 
A. There is no need to calculate this inverse using listing 7.5, we can find it 
directly by using listings 4.2, 4.3 and 4.4, with parameters derived from the 
parameters of the original transformation 


(1) a translation by (TX, TY) is inverted by a translation by (-TX, —TY); 

(2) a scaling by SX and SY is inverted by a scaling by 1/SX and 1/SY (naturally 
both SX and SY are non-zero, for otherwise the two-dimensional space would 
contract into a line or a point); 

(3) a rotation by an angle @ is inverted by a rotation by an angle —0; 
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(4) if the transformation matrix is a product of a number of translation, scaling 
and rotation matrices A X BX CX ...X EL X MX N (say), then the inverse 
transformation matrix is 


Ne Mae Xe ee OE OK Ae 


Note the order of multiplication! 


The Placing of an Object 


We are often required to draw a given object at various points on the screen, and 
at arbitrary orientations. It would be very inefficient to calculate by hand the 
coordinates of vertices for each position of the object and input them to the 
program. Instead we define first an arbitrary but fixed coordinate system for 
two-dimensional space, which we call the ABSOLUTE system. Then we give the 
coordinates of the vertices of the object in some simple way, usually about the 
origin, which we call the SETUP position. Lines and areas within the object are 
defined in terms of the vertices. We can then use matrices to move the vertices of 
the object from the SETUP to the ACTUAL position in the ABSOLUTE system. 
The lines and areas maintain their relationship with the now transformed vertices. 
The matrix that relates the SETUP to ACTUAL position will be called P through- 
out this book (we sometimes give it a letter subscript to identify it uniquely from 
other such matrices). Because of the restriction of not passing arrays as para- 
meters into subprograms, we shall not normally explicitly generate array P, 
instead it will be implicitly used to update the array R. 


Looking at the Object 


Thus objects in a scene can be moved relative to the ABSOLUTE coordinate 
axes. When observing such a scene, the eye is assumed to be looking directly at 
point (DX, DY) of the ABSOLUTE system and the head tilted through an angle 
a. It would be convenient to assume that it is looking at the origin and there is 
no tilt of the head (we call this the OBSERVED position). Therefore we generate 
another matrix that will transform space so that the eye is moved from its 
ACTUAL position to this OBSERVED position. The ACTUAL to OBSERVED 
matrix is named Q throughout this book, and is achieved by first translating all 
points in space by a vector (—DX, —DY), matrix A, and then rotating them by 
an angle —a, matrix B (note the minus signs!). Thus Q = B X A, which is generat- 
ed in routine ‘look2’, listing 4.5. Normally we do not calculate Q explicitly, as 
usually it is used only to update R; however, if it is necessary to use the values of 
the matrix repeatedly then obviously it is sensible to store Q. 
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Listing 4.5 


8200 REM Look2/general 

@202 REM OUT : R(3,3) 

8210 INPUT "(DX,DY) “;DX;",";DY 
8220 INPUT "ALPHA ";ALPHA 

8229 REM Look at (DX,DY). 

8230 LET TX = -DX: LET TY = -DY 
8248 GO SUB tran2: GO SUB mult2 
8249 REM tilt head through ALPHA radians. 
825@ LET THETA = —ALPHA 

826@ GO SUB rot2: GO SUB mult2 
8270 RETURN 


Drawing an Object 


Combining the SETUP to ACTUAL matrix P, with the ACTUAL to OBSERVED 
matrix Q, we get the SETUP to OBSERVED matrix R = Q X P (we shall always 
use R to denote this matrix: and remember R is always the result of our ‘mult2’ 
routine). Transforming all the SETUP vertices by R, with the corresponding 
movement of line and area information, means that the coordinates of the object 
are given relative to the observer who is looking at the origin of the ABSOLUTE 
coordinate system with head upright, and who is in fact really looking at a 
graphics screen. So we identify the ABSOLUTE coordinate system with the 
system of the screen to find the position of the vertices on the screen, and then 
draw the vertices, lines and areas that compose the object. In practice this is 
achieved by a construction routine that uses matrix R. It will set up the vertex, 
line and area information, transform the vertices using R, and perhaps finally 
draw the object (see example 4.1 below). Later we shall see that there are 
certain situations where it is more efficient to store the vertex, line and area 
information. For example, the vertex coordinates can be stored in arrays X and 
Y, and line information in a two-dimensional array L. Vertices can be stored in 
their SETUP, ACTUAL or OBSERVED position — it really depends on the 
context of the program. This SETUP to ACTUAL to OBSERVED method will 
enable us to draw a dynamic series of scenes — objects can move relative to the 
ABSOLUTE axes, and to themselves, while simultaneously the observer can 
move independently around the scene. To start with, however, we consider the 
simplest case of a fixed scene. 


Complicated Pictures — the ‘Building Brick’ Method 


We can draw pictures that contain a number of similar objects. There is no need 
to produce a new routine for each occurrence of the object, all we do each time 
is calculate a new SETUP to OBSERVED matrix and enter this into the same 
routine. Naturally we shall require one routine for each new type of object in 
the picture. The final picture is achieved by the execution of a routine we name 
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‘scene2’, which will be called from the standard main program (listing 4.6). This 
main program simply defines the labels of the various subprograms, declares 


arrays, centres the graphics area having INPUT HORIZ and VERT, and finally 
calls ‘scene2’. 


Listing 4.6 


100 REM main program 

109 REM define identifiers for initialisation and 2-D plot routines. 

110 LET start = 970%: LET setorigin = 9680: LET moveto = 9508 
: LET Lineto = 9400: LET clip = 8402 

120 LET rot2 = €60@0: LET angle = 888M: LET scale2 = 8900: LET tran2 = 9000 
: LET mult2 = 9100: LET icR2 = 9300 

13@ LET scene2 = 6200: LET tcok2 = 8200 

139 REM-initialise and centre graphics area. 

148 INPUT "HORIZ ",HORIZ,"VERT ",VERT 

15@ GO SUB start 

16@ LET XMOVE = HORIZ*@.5: LET YMCVE = VERT*@.5 

170 GO SUB setorigin 

139 REM set the scene. 

1808 GO SUB scene2 

198 STOP 


‘scene2’ will first call ‘look2’ and generate Q, and if more than one object is 
to be drawn then we store it. For each individual object (or brick) we calculate a 
matrix P and call the required construction routine using R = Q X P. All the 
bricks finally build into the finished picture. To distinguish between different 
occurrences of these matrices in what follows, we sometimes add a subscript to 
the names P and R. 

This modular approach to solve the problem of defining and drawing a 
picture may not be the most efficient, but from our experience it does greatly 
clarify the situation for beginners, enabling them to ask the right questions about 
constructing a required scene. Also when dealing with animation we shall see 
that this approach will minimise problems in scenes where not only are the 
objects moving relative to one another, but also the observer himself is moving. 
Naturally if the head is upright then matrix Q can be replaced by a call to 
‘setorigin’, which changes the screen coordinate system. Or if the eye is looking 
at the origin, head upright, then Q is the identity matrix J; hence it plays no part 
in transforming the picture and the ‘look2’ routine may be ignored. We shall 
make no such assumptions and work with the most general situation: it is a use- 
ful exercise throughout this book for the reader to cannibalise our programs in 
order to make them efficient for specific cases. It is our aim to explain these 
concepts in the most general and straightforward terms, even at the expense of 
efficiency and speed. The reader can return to these programs when he is ready 
and fully understands these ideas of transforming space. Later we shall give some 
hints on how to make these changes, but at the moment this would only confuse 
the issue. 

However, the most important reason for this modular approach will be seen 
when we come to draw pictures of three-dimensional objects. We shall define 
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these three-dimensional constructions as an extension of the ideas above, and full 
understanding of two-dimensional transformations is essential before we go on 
to higher dimensions. 


Example 4.1 

Consider a simple space ship SETUP pointing in the positive x-direction (that is, 
making an angle 0 radians with the x-direction). The ship is defined by five line 
segments joining, in order, the points (3, 0), (0, 0), (—1, 1), (2, 0), (1, —1) and 
back to (0, 0). See figure 4.1; which is a ship drawn on a screen 5 units by 3 
units, where the SETUP to ACTUAL matrix is the identity and the ACTUAL to 
OBSERVED matrix is such that the observer is looking at the point (1,0) with 
head upright. Listing 4.7 gives the necessary routine ‘scene2’ that moves the 
object into position, and listing 4.8 is the required construction routine ‘ship’. 
Note that ‘ship’, which uses matrix R to transform the vertices (and hence the 
object) into their OBSERVED position, does not store the vertex values for this 
position in a permanent data-base. Instead the values are kept in arrays X and Y 
for the duration of the routine, and if the routine is re-entered to draw another 
space ship then these array locations are used again. 


t—-1.1) 
in eg 


Figure 4.2 
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Listing 4.7 


60020 REM scene2/look2 ; srip(not stored) 
60102 DIM X(6): DIM Y(6) 

6028 DIM AC3,3): DIM BC(3,3): DIM R(3,3) 
60302 LET ship = 6500 

6039 REM place the observer. 

6048 CC SUB idR2: GO SUB Look2 

6049 REM define and draw object. 

6050 GO SUB ship 

6060 RETURN 


Listing 4.8 


6580 REM ship/ not stored 

6509 REM IN : R(3,3) 

6510 DATA 3,0,2,0,-1,1,2,0,-1,-1,0,8 

652 RESTORE ship 

6530 FOR T= 1 T0 6 

6539 REM read coordinates of SETUP object. 
6548 READ XX,YY 

6549 REM move object into OBSERVED position. 
6550 LET X(1) XX*R(1,1) + YY*R(1,2) + RC1,3) 
6568 LET Y(1I) XX*R(2,7) + YY*R(2,2) + RCZ2,3) 
6570 NEXT I 

6579 REM join vertices in order. 

6588 LET XPT X(1): LET YPT = Y(1): GO SUB moveto 


6598 FOR I = 2 106 

6602 LET XPT = X(i}: LET YPT = Y(I): GO SUB Lineto 
6612 NEXT I 

6620 RETURN 

Example 4.2 


Suppose we wish to draw figure 4.2, which includes four space ships labelled (a), 
(b), (c) and (d) on a screen 60 units by 40 units. For simplicity in this picture we 
assume Q is the identity matrix, so the head is upright and the eye looks at the 
SETUP origin. Ship (a) is placed identically to its SETUP position; that is, 

R, =/, whereas ship (b) is moved from its SETUP to ACTUAL position by the 
following transformations 


(1) scale the figure with SX = 4 and SY = 2, producing matrix A; 
(2) rotate the figure through 2/6 radians, matrix B; 
(3) translate figure by TX = 6 and TY = 4, matrix C 


400 (3/2 1/29 106 
A=10) 2. 0°) B="0/2 ~ \/3/2-0'} C=O 1 a 
001 0 0 1 0 OF 


N 


The complete transformation is given by Rp = Q X Pp =1X Py = Pp =CXBXA 
(Note the order of matrix multiplication, and that the subscript distinguishes the 
placing of ship (b) from the others). 

If instead we used the order A X B X C (giving matrix Pg), then 
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2/3, =1 6 2/3 —2 1273-8 
Po=12 V3 4) Pa=[1 v3 4/3+6 
0 Qo. 1 0 G4 

which are two obviously different transformations. Matrix Rg = Q X Pg=1X Pq 
produces ship (d). Note how this ship is assymetrical. Be very careful with the 
use of the scaling transformation — remember scaling is defined about the origin 
and this will cause distortions in the shape of an object that is moved away from 
the origin! 

To illustrate this example further we show how to calculate the ACTUAL 
position of ship (b) on the screen by setting the coordinates in the form of a 
column vector and premultiplying them by matrix R, =J X P,; for example 


w/3 —1 6 3 6/3 + 6 
2 W341! 0 }="] 10 etc. 
ipa 1 1 


When returned to normal vector form we see that the five vertices have been 
transformed to (6/3 + 6, 10), (6, 4), (5 — 273, V3 + 2), (4/3 + 6, 8) and 
(7 — 2/3, 2 — V3) respectively. 

Ship (c) is ship (b) reflected in the line 3y = —4x — 9. This line cuts the y- 
axis at (0, -3) and makes an angle a= cos _! (—3/5) =sin~' (4/5) = tan7! 
(—3/4) with the positive x-axis. If we move space by a vector (0, 3), matrix D 
say, this line will go through the origin. Furthermore, if we rotate space by —a, 
matrix E say, the line now is identical with the x-axis. Matrix F can reflect the 
ship in the x-axis, E~! puts the line back at an angle a with the x-axis, and 
finally D~' returns the line to its original position. Matrix G=D~! X E~' X 
FX E X D will therefore reflect all the ACTUAL vertices of ship (a) about the 
line 3y = —4x — 9, and R, =] X P,=G X P, can therefore be used to draw ship 
(c). That is, we use matrix P, to move the ship to position (b) and then G to 
place it in position (c). 


100 ‘3/5 4/5 0 10. 
D={}0 1 3 f= ( —4/5 3/5 0 F=(0 —1 0 
00 1 0 0 1 UE 0 ams | 


and 
48 —14/3 7-24/3 —210 
R= —| 14—48/3 2447/3 -=170 
25 0 0 25 


Figure 4.2 is drawn using the new ‘scene2’ routine of listing 4.9: note that 
this ‘scene2’ does not call ‘look2’, since it is assumed that the eye is looking at 
the origin with the head erect. The main program and the ‘ship’ routine, as well 
as all the other graphics package routines, stay unchanged. 
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Listing 4.9 


6060 REM scene2/ no Look2 ; 4 ships (net storec) 
6018 DIM X(6) : DIM Y(6) 

6020 DIM A(3,3): DIM B(3,3): DIM R(3,3) 
603@ LET ship = 6508 

6279 REM OBSERVED=ACTUAL, ro need to call "Look2'. 
6034 REM ship a). 

6048 GC SUB idR2: GO SUE shir 
6249 REM ship b). 

6050 LET SX = 4: LET $Y =2 

6268 GC SUB scale2: GO SUB muLt2 
6072 LET THETA = FI/6 

6082 GO SUB rot2: GO SUB mult2 
6092 LET Tx = 6: LET TY =4 

6120 GC SUB tran2: GO SUB muli2 
6112 GO SUB ship 

6119 REM ship c). 

6120 LET AX = -3: LET AY =4 
6138 GC SUB angle 

614@ LET TX = @: LET Ty = 5 

6158 GO SUB tran2: GO SUB mult2 
616@ LET TEETA = -THETA 

6176 GO SUB rot2: GO SUB mult2 
O18 LET SK = 42 LET SY¥=" <7 
619@ GO SUB scale2: GO SUE rulte 
62@0 LET THETA = -THETA 

621@ GC SUB rct2: GO SUB mult2 
6228 LET TX = 8: LET TY = -3 
623@ GO SUB trar2: GO SUB mult2 
6240 GC SUB ship 

6269 REF ship a). 

6250 GO SUB icR2 

626@ LET TX = 6: LET TY =4 

6c’ GC SUB trané: GO SUB mult2 
6282 LET TEETA = PI/6E 

6260 GO SUB rct2: GO SUB mult2 
6308 Lev SX = 42 LET $¥ = 2 

6318 GC SUB scale2: GO SUB mulzz 
637% Cf SUB ship 

6230 FETURN 


Exercise 4.1 

In order to convince yourself that this program may be used to deal with the 
general situation, you should run this program using non-zero values of DX, DY 
or aso that the ACTUAL to OBSERVED matrix @ is not the identity matrix. 
Your ‘scene2’ routine should call ‘look2’ to calculate Q, which must be stored. 
Then for each object in the scene, in turn, calculate the SETUP to ACTUAL 
matrix P (which ‘mult2’ places in R), premultiply it by Q (which has to be 
copied into matrix A for use with ‘mult2’) and finally enter the construction 
routine with the product matrix R = Q X P. Make sure that the ‘lineto’ routine 
contains the ‘clip’ option or you will find your program fails when it tries to 
draw outside the rectangle of the graphics area. 
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Exercise 4.2 

Use the above routines to draw diagrams that are similar to figure 4.2, but where 
the number, position and directions of the ships are read in from the keyboard. 
You can produce routines to draw more complicated objects; we chose a very 
simple example so that the algorithms would not be obscured by the complexity 
of objects. The above method can deal with as many vertices and lines as the 
Spectrum can handle within time and storage limitations. The objects need not 
be line drawings only, you can draw coloured areas (polygons bounded by 
transformed vertices). 


Exercise 4.3 

Using loops in the program we can draw ordered sequences of the objects; for 
example, they can all have the same orientation but with points of reference 
(the origin in the SETUP position) equally spaced along any line p + ug. We can 
set up a loop with index parameter yw and draw one ship for each pass through 
the loop. For each value of » we can alter the parameters of translation in a 
regular way within the loop (using yw, p and q). The new values of these para- 
meters are used to calculate a different SETUP to ACTUAL matrix for each 
occurrence, and this moves the object into anew ACTUAL position. R = Q X 
P=1X Pis used to observe and draw each object on the screen. With these ideas, 
construct a set of battle formations of the above type of ship on the screen. 


Efficient Use of Matrices 


It is obvious that whatever combination of transformations we use, the third row 
of every matrix will always be (0 O 1). If we work with the top two rows of 
the matrix only, it will make our routine much more efficient. We still keep 

3 X 3 matrices rather than 2 X 3 (which is really all we need), because we may 
have previously written other routines that assume 3 X 3 matrices. ReDIMension- 
ing the arrays could lead to array bound errors in the earlier routines — the cost 
of an extra three real numbers per matrix is a small price to pay to avoid errors. 
Also note that when we DIMension an array it is immediately set to zero (see 
page 202 of the Spectrum BASIC Handbook (Vickers (1982)). We rewrite list- 
ings 4.1,4.2, 4.3 and 4.4 as listings 4.1a, 4.2a, 4.3a and 4.4a respectively, to 
making use of these facts. 


Listing 4.la 


9100 REM mult2 

9101 REM IN : A(3,3),R(3,3) 

9102 REM OUT : R(3,3) 

9112 FOR I= 1 70 2 

9120 FOR J = 1 TO 3 

9130 LET BCI,J) = ACI,1)*R(1,J) + ACI,2)*R(2,J) 
9148 NEXT J 
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9158 LET BC(1,3) = BC(I,3) + ACI,3) 

9168 NEXT I 

9170 FOR J = 1 TO 3 

9180 LET R(1,J) = B(1,J): LET R(2,J) = BC2,J) 
9198 NEXT J 

9202 RETURN 


9300 REM iaR2 

93@2 REM OUT : R(3,3) 

9312 DIM R(3,3) 

9320 LET R(1,1) = 1: LET R(2,2) = 1 
9330 RETURN 


Listing 4.2a 


9000 REM tran2 

9021 REM IN : TX,TY 
G@O2 REM OUT : AC3,3) 
9812 DIM AC3,3) 
9828 LET A(1,1) 
9038 LET A(1,3) 
9048 RETURN 


1: LET AC2,2) = 1 
XE VET ACZ,3) = TY 


Listing 4.3a 


8900 REM scale2 

8901 REM IN : SX,SY 

8902 REM OUT : A(3,3) 

8910 DIM A(3,3) 

8920 LET A(1,1) = SX: LET A(2,2) = SY 
893@ RETURN 


Listing 4.4a 


8600 REM rot2 

8601 REM IN : THETA 

8602 REM OUT : A(3,3) 

8612 DIM A(3,3) 

862@ LET CT = COS THETA: LET ST = SIN THETA 
8632 LET AC1,1) = CT: LET AC2,2) = CT 

8640 LET A(1,2) = -ST: LET A(2,1) = ST 

8650 RETURN 


The construction of figure 4.2 may seem rather contrived since the position 
of the objects was chosen in an arbitrary way. However, in most diagrams the 
positioning of objects will be well defined, the values being implicit in the 
diagram required. See the example below. 


Example 4.3 

Write a program that draws an ellipse with major axis A, minor axis B and 
centred at the point (CX, CY). The major axis makes an angle @ with the positive 
x-direction. Note that the order of transformations is important: first rotate and 
then translate. If we wish to draw ellipses with major axis horizontal then we need 
not use matrices, we can stay with the routine set in exercise 2.5 using ideas 
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similar to those in listing 2.11a. Listing 4.10 gives a ‘scene 2’ routine that reads in 
data about the ellipse, calculates the SETUP to OBSERVED matrix and then 
calls the construction routine ‘ellipse’ that draws the ellipse. 


Listing 4.10 


6000 REM scene2/ellipse 

60210 DIM A(3,3): DIM B(3,3): DIM R(3,3) 

6020 LET ellipse = 6580 

6038 INPUT "(CX,CY) "ZCX;","ECY,,"A "ZA;",B "3B;", THETA ";THETA 
6040 LET THETA = -THETA 

6049 REM ellipse centred at (CX,CY) and tilted through angle THETA. 
6850 GO SUB idR2 

6062 GO SUB rot2: GO SUB mult2 

6078 LET Te = CXS LER FY = cy 

60828 GO SUB tran2: GO SUB multe 

6092 GO SUB ellipse 

6100 RETURN 


6500 REM ellipse 

6501 REM IN : A,B,R(3,3) 

6509 REM ellipse, major axis A, minor axis B. 
6510 LET XPT = A*R(1,1) + R(1,3) 

6520 LET YPT = A*R(2,1) + R(2,3) 

65308 GO SUB moveto 

654@ LET ALPHA = @: LET ADIF = P1/100 

6549 REM calculate points (XPT,YPT) on ellipse, in OBSERVED position. 
6550 FOR I= 1 TO 200 

6568 LET ALPHA = ALPHA + ADIF 

6570 LET AA = A*xCOS ALPHA: LET BB = B*SIN ALPHA 
5580 LET XPT = AA*R(1,1) + BB*R(1,2) + R(1,3) 
2598 LET YPT = AA*R(2,1) + BB*R(2,2) + R(2,3) 
6600 GO SUB Lineto 

6610 NEXT I 

6620 RETURN 


Exercise 4.4 

Write a routine for drawing an individual matrix-transformable object (in this 
case an astroid, shown in figure 4.3a) and then use the matrix techniques to 
draw combinations of these objects (as in figure 4.3b). An astroid is a closed 
curve with parametric form (R cos 6/sin* @) where 0 < @ < 2m, R being the 
radius (the maximum distance from the centre of the object). The parameters 
needed by this routine are the radius of the astroid and the transforming matrix. 
Figure 4.3b is the combination of a large number of two different forms of the 
astroid. One has radius 1 and is not rotated, the other has radius ./2 and is 
rotated through 7/4 radians. 


Exercise 4.5 

Experiment with these matrix techniques. Write a subroutine that generates the 
matrix necessary to rotate points in space by an angle @ about an arbitrary point 
(X, Y) in space (not necessarily the origin), Also produce another routine that 
generates the matrix that will reflect points about the general line ay = bx +c. 
(Use the ideas given in example 4.2 for the production of ship (c).) 
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Storing Information about Scenes 


We mentioned earlier that certain situations arise where we need to store all the 
information about a scene in a large data-base rather than lose the information 
on leaving the construction routine. Our data-base will consist of arrays X and Y, 
of length greater than or equal to NOV, the final number of vertices to be stored. 
(These vertices can be stored in the SETUP, ACTUAL or OBSERVED position: 
it depends on the context of the problem.) We also need to store information on 
lines, in a two-dimensional array L whose first index is 1 or 2, and whose second 
index is a number between 1 and a value greater than or equal to NOL, the final 
number of lines in the scene. The I line joins the two vertices with indices 

L(1 J) to L(2,I): hence this information is independent of position, it simply 
says which two vertices are joined by the I line. NOV and NOL are initialised 
in the ‘scene2’ routine and incremented in the construction routines. 

We now no longer require construction routines to draw lines, we use them 
only to create the data-base of lines, vertices, etc. (transformed by the matrix R). 
After ‘scene2’ has constructed the final scene in memory it calls another routine 
‘drawit’, which draws the final picture. The ‘scene2’ routine will be very similar 
to those mentioned earlier; for example, the routine for drawing figure 4.2 in 
this new way will be that given in listing 4.9 with the three minor changes 
listed below 


6010 DIM X(20): DIM Y(20): DIM L(2,20) 
6030 LET NOV=0 : LET NOL=0: LET ship= 6500 : LET drawit=7000 


6330 GO SUB drawit: RETURN 


8&0 Advanced Graphics with the Sinclair ZX Spectrum 


This is used in conjunction with listing 4.11, which gives the ‘ship’ construction 
routine (which only sets up the data), and ‘drawit’ routine. 


Listing 4.11 


65@0 REM ship/ stcred 

6501 REM IN : NOV,NOL,R(3,3),X (NOV) ,YCNOV) 

6502 REM OUT : NOV,NOL,X (NOV) ,YCNOV) ,L(2,NOL) 

651D DATA 30,98 ,-151 2,9 9-1 en1 yl p22 93 po rth 92 02 
6520 RESTORE ship 

6530 LET NV = NOV 

6531 REM read vertices, and move into position using matrix R. 
6548 FOR I= 1 70 5 

6558 READ XX,YY 

6568 LET NOV = NOV + 1 

6570 LET X(NOV) = XX*R(1,1) + YY*R(1,2) + R(1,3) 
6580 LET YCNOV) = XX*R(2,1) + YY*R(2,2) + R(2,3) 
6598 NEXT I 

6531 REM read and store Line information 

6600 FOR I= 1 TO 5 

6610 READ L1,L2 

6620 LET NOL = NOL + 1 

6630 LET L(1,NOL) = L1 + NV: LET L(2,NOL) = L2 + NV 
6648 NEXT I 

6652 RETURN 


7000 REM drawit 

7001 REM IN =: NOL,XCNOV),YCNOV),L(2,NOL) 

7009 REM draw Line by joining pairs of vertices. 
7018 FOR I= 1 TO NOL 

7020 LET L1 = L(1,1): LET L2 = L¢2,1) 

7030 LET XPT = X(L1): LET YPT Y(L1): GO SUB moveto 
7040 LET XPT = X(L2): LET YPT Y(L2): GO SUB Lineto 
7B58 NEXT I 

7860 RETURN 


Suppose we wish to produce different views of the same scene (again we use 
figure 4.2 as an example); that is, the same SETUP to ACTUAL matrices P, but 
different ACTUAL to OBSERVED matrices Q. The obvious solution is to create 
a data-base for the scene with the vertices in the ACTUAL position. Now for each 
new OBSERVED position we calculate Q and enter it into another ‘drawit’ 
routine (see listing 4.12 — different from listing 4.11), which transfers each 
vertex from its ACTUAL to OBSERVED position using Q, stores them in arrays 
V and W, and recalls them when they are required for drawing. When using this 
method to construct different views of figure 4.2, only the ‘scene2’ and “drawit’ 
routines differ from their earlier manifestations, and then only slightly. We give 
them in listing 4.12. 
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Listing 4.12 


6002 REM scene2/ variable Locke ; 4 ships (stored) 
6029 REM construct 4 ships stcrec in ACTUAL position. 
6010 DIM X(2B) : DIM YC(2@): DIM VC2M): DIM WC20): DIM L(2,20) 
6022 DIM A(3,3): DIM B(3,3): DIM R(3,3) 
603@ LET ship = 6500: LET crawit = 7000 
60395 REM ship @). 

6048 LET NOV = @: LET NOL = @: GO SUB idR2: GC SUB ship 
68049 REM ship b). 

6050 LET Sx = 4: LET SY = @ 

6060 GO SUB scale2: GO SUB mult2 

6070 LET TFETA = PI/6 

6080 GO SUB rot2: GO SUB multe 

6098 LET TX = 6: LET TY = 4 

6120 GO SUB tran2: GO SUB multe 

6110 GO SUB ship 

6119 REM ship c). 

6128 LET AY = -3: LET AY = & 

6132 GO SUB angle 

6148 LET TX = @: LET TY = 3 

615@ GO SUB tran2: GO SUB multe 

616@ LET THETA = -THETA 

6172 GO SUB rot2: GO SUB mult2 

6180 LET SX = 1: LET SY = -1 

619@ GO SUB scale2: GO SUR multe 

6200 LET THETA = -THETA 

6210 GO SUP rcté2: EO SUB mult2 

6220 LET TX = @: LET TY = -3 

623@ GO SUB tran2: GO SUB mult2 

6240 GO SUB ship 

6249 REM ship d). 

6250 GO SUB idR2 

6260 LET TX = 6: LET TY = 4 

6272 GO SUB tran2: GO SUB mult2 

6282 LET TFETA = PI/6 

6298 GO SUB rot2: GO SUB multe 

6300 LET SX = 4: LET SY = 2 

6310 GO SUB scale2: GO SUE multe 

€728 GO SUB ship 

6329 REM Loop through observaticr points. 
6330 GO SUB idR2: GO SUB lLook2 

6340 CLS: GO SUB drawit 

6358 GO TO 6330 

636@ RETURN 


7020 REM drawit 

7001 REM IN : NCV,NOL,R(3,3),X(NOV) ,L(2,NOL) 

7009 REM transform vert*ces from ACTUAL to OBSERVED position. 
701% FOR 1 = 1 TO NOV 


7020 LET VCI) = XCID*RC1,1) + YCID*R(1,2) + RO1,3) 
7030 LET WC1) = XC1)*R(2,1) + YCID*R(2,2) + R¢2,3) 
704@ NEXT I 

7049 REM draw lines by joining pairs of vertices. 
705@ FOR 1 = 1 TO NOL 


7068 LET L1 = L(1,1): LET L2 = L¢2,1) 

7078 LET XPT = VC(L1): LET YPT W(L1): GO SUB movetc 
7080 LET XPT = VCL2): LET YPT W(L2): GC SUB Lineto 
7098 NEXT I 

7100 RETURN 
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Exercise 4.6 

Construct a dynamic scene. With each new view the ships will move relative to 
one another in some well-defined manner. The observer also should move in 
some simple way; for example, the eye starts looking at the origin, five views 
later it is looking at the point (10, 10), and with each view the head is tilted a 
further 0.1 radian. You no longer need to INPUT the values of (DX, DY) and 
ALPHA into ‘look3’, instead they should be calculated by the program. After 
you have read chapter 13 you can place these five pictures in store and recall 
them as a ‘movie’ (if you have the 48K machine). 


Exercise 4.7 
Construct a scene that is a diagrammatic view of a room in your house — with 
schematic two-dimensional drawings of tables, chairs, etc. placed in the room. 
Each different type of object has its own construction routine, and the ‘scene2’ 
routine should read in data to place these objects around the room. Once the 
scene is set produce a variety of views, looking from various points and 
orientations. 
Or you can set up a line-drawing picture of a map, and again view it from 
various orientations. The number of possible choices of scene is enormous! 
Because we are using the ‘clip’ option in ‘lineto’ we can choose small values 
for HORIZ and VERT, which has the effect of the observer zooming up close to 
parts of a scene, and all external lines will be conveniently clipped off, 


Complete Programs 


We group the listings 3.4 (‘angle’), 4.1a (‘mult2’ and ‘idR2’), 4.2a (‘tran2’), 
4.3a (‘scale’), 4.4a (‘rot2’), 4.5 (‘look2’) and 4.6 (‘main program’) under the 
heading ‘lib2’. 


I. ‘lib1’, ‘lib2’, listings 4.7 (‘scene2’) and 4.8 (‘ship’). Data required: HORIZ, 
VERT, DX, DY and ALPHA. Try 8, 5,1, 1,0.5. Keep any four of these 
values fixed and systematically make small changes in the other data value. 

I. ‘lib1’, ‘lib2’, listings 4.9 (‘scene2’) and 4.8 (‘ship’). Data required: HORIZ, 
VERT. Try 30, 20; 200, 200; 200, 150. 

Ill. ‘lib1’, ‘lib2’ and listings 4.10 (‘scene2’ and ‘ellipse’). Data required: HORIZ, 
VERT, CX, CY, A, B, THETA. Try 30, 20, 0,0, 12, 9,0. Again fix all but 
one of the values and change the remaining value systematically. 

IV. ‘libl’, ‘lib2’, listings 4.9 (‘scene2’ adjusted as per text) and 4.11 (‘ship’ and 
‘drawit’). Data required: as for II above. 

V. ‘libl’, ‘lib2’, listings 4.11 (‘ship’ but not ‘drawit’) and 4.12 (‘scene2’ and 
‘drawit’). Data required: HORIZ, VERT, DX, DY, ALPHA. Try 60, 40, 0, 0, 
0. Systematically change each of the data values in turn. 


5 Character Graphics on the ZX 
Spectrum 


In the first chapter (listing 1.2) we saw how a small block or character may be 
generated by eight binary numbers. Such a block of 8 by 8 pixels is known as a 
character block . The Spectrum has three types of characters built in: the 96 
character standard set, the 16 character block graphics set and the 21 character 
user-defined graphics set. The latter two sets are accessed from the keyboard in 
graphics mode. These characters are placed on the display when PRINT is used, 
so we must take a closer look at this operation. 

The PRINT command allows us to place characters on any of the 22 lines of 
the upper screen, from top (0) to bottom (21), and at any of 32 positions along 
each line, from left (0) to right (31). These are the character blocks and each 
contains eight lines of eight pixels. Each line of eight pixels corresponds to a 
value stored in one memory location; each pixel corresponds to a binary digit in 
an eight-digit binary number. This can be represented by a decimal number 
between 0 and 255. In the store there is a table of characters. For any given 
character the PRINT command either finds the eight VALUEs from the table or 
calculates them, and copies them into the appropriate display-file memory loca- 
tions. This has the effect of drawing the character on the screen, 


The Standard Character Set 


The table of data for the standard character set is stored in ROM, the permanent 
Read Only Memory of the computer. There are eight pieces of data for each of 
the 96 characters, thus the table consists of 768 (96*8) consecutive locations 
starting at 15616. Each character has a unique CODE number, see page 183 of 
the Spectrum BASIC Handbook (Vickers, 1982). The table contains the data for 
each of the characters in turn, starting with space (CODE 32) and ending with the 
copyright symbol (CODE 127). When the PRINT command requires the eight 
pieces of data for a given character, it looks at the system variable CHARS (see 
page 173 of the Spectrum BASIC Handbook (Vickers, 1982)), which contains 
the address of a location 256 (eight times the CODE for space) less than the start 
of the character table. In order to find the address of the first of the eight pieces 
of data it multiplies the CODE number of the character by eight and adds it to 
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CHARS. Finally PRINT copies the data to the display file and the character 
appears on the screen, 

Run the following program, which is based on listing 1.2. It demonstrates how 
this process works by showing what calculations are performed. A detailed ex- 
planation of how to work out the display-file locations for any character block is 
given in chapter 13, but for the moment we shall continue to use block (0, 0) 
only. Figure 5.1 is an example run of this program using ‘?’ as INPUT data. 


Listing 5.1 


1@ CLS: INPUT "Which character”;A$: IF A$ = "" THEN GO TO 10 

28 LET AS = AS(1): PRINT AT 2,0;°"""7AS;""" SELECTED. CODE (";A$;") = ";CODE AS 
30 PRINT AT 4,0;"CALCULATION OF DATA LOCATION" 

4@ LET CHARS = PEEK 23606 + 256*PEEK 23607 

5@ PRINT AT 6,2;"CHARS POINTS TO ";CHARS 

6@ LET TABLE = CODE AS*8 


7@ PRINT AT 7,3;"CODE AS * 8 = "TABLE 
8@ LET START = CHARS + TABLE 
98 PRINT AT 8,17;"-------": PRINT AT 9,2;" DATA STARTS AT ";START 


102 LET CORNER = 16384: PRINT AT 11,0;"TABLE LOC. VALUE SCREEN LOC.” 
110 FOR T= @ 107 

120 LET VALUE = PEEK (START + I): LET MEMORY = CORNER + 256*1 

130 PRINT AT I + 13,2;START + Iz: PRINT AT I + 13,22;MEMORY 

148 PRINT AT I + 13,13;VALUE 

150 POKE MEMORY,VALUE 


16 NEXT I 
170 INPUT "ANOTHER GO ? ";Y$: IF Y$ = "n" THEN STOP 
182 GO TO 10 
“>? SELECTED. CODE (7) = 63 


CALCULATION OF DATA LOCATION 


CHARS POINTS TO i536¢ 
CODE AS + S&S = Seaé¢ 


DATA STARTS AT 15864 
TABLE Loc. VALUE SCREEN LOC. 


15864 e 16384 
1586S 6e 16640 
15866 66 168365 
15867 4 47152 
15868 8 L7408 
15869 S 17664 
15870 B 47929 
15871 e 16176 
Figure 5.1 


Exercise 5.1 
Rewrite listing 5.1 so that it will allow you to decide whether or not to accept 
each data VALUE before it is POKEd into the display file. If one of the eight 
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VALUES is rejected, INPUT a replacement for this VALUE. Experiment by 
changing one or two VALUEs in a character. 


The Graphics Mode 


The address stored in CHARS is where you might expect to find data for the 
character with CODE 0; however, characters with CODEs between 0 and 31 are 
either control characters or unused. Since control characters are not displayed, 
then no data are stored for them. Although CHARS points to this address, the 
256 (328) bytes following it are not used and so are available for other purposes. 
Furthermore, if a graphics mode character is selected for listing 5.1, then either 
blank or totally spurious data are gathered. This is because the standard table 
has data for CODEs 32 to 127 only and the graphics mode characters have 
CODEs greater than 127; so the program is looking in the wrong place, beyond 
the end of the table of data! The table in ROM immediately precedes the start 
of RAM, the Random Access Memory used for temporary storage, so the pro- 
gram will be looking at the display file that occupies the first 6K of RAM. 


Block Graphics 


The data for the block graphic set are not stored in ROM but instead are 
calculated from the CODE of the character. Each block graphics character has 
four quarters that are each represented, as on or off, by one of the last four 
binary digits of the CODE number. In a block graphics character the first four 
lines of eight pixels are identical, and the same is true of the bottom four lines. 


IWOPAIeI1 = EOCE t's 

LOO eee = BLOCK GRAPHICS 
THARAIITER., 

‘se NDTLOL = FOUR CORNERS oF 

wae Od: CHARACTER. 


lll1l 21111 oO@8OO 1121 
oo0o1L11 


EL del ol el 


VALUE FOR TOP 4 LINES 
VALUE BOTTOM 4 LINES 


bee OOO 
BEER OOO 
PEEEROOOG 
FeEEEOOOG 
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be et et BB 
eed od od ed od od 
PEER E EEE 


‘Figure 5.2 


86 Advanced Graphics with the Sinclair ZX Spectrum 


Provided we know that a character is a block graphic, we can generate two pieces 
of data and use each four times to create the block. An example of how this is 
achieved is shown in figure 5.2. 

The block graphics set can be used to give medium-resolution graphics of 64 
by 44 quarter blocks. Using this idea we can build up quite complicated two- 
colour pictures very rapidly. The picture below (figure 5.3) was produced by the 
program given in listing 5.2. The program draws a small set of concentric circles 
in the top corner of the screen, then calls the ‘big pixels’ routine. This routine 
asks us to specify a character block that will be the top-left corner for our start 
position. From this position, for five character blocks down and for eight across, 
it stores the data from the display file in the array S. For each pair of lines down, 
it takes the eight pieces of data across and converts them to BINary strings (see 
line 1130 onwards). These strings are used to build up the BINary representation 
of the CODE for a graphics character by taking a two-bit section from each string 
in turn and prefacing it by the CODE for graphics character (line 1230). 


Listing 5.2 


100 REM main program 

110 LET big pixels = 1000 

120 FOR I = 1 10 18 STEP 3: CIRCLE 32,156,1: NEXT I 
130 GO SUB big pixels 

140 STOP 


1000 REM big pixels 

1010 DIM PC&): DIM S(48,8) 

1020 FOR I = 1 TO 8: READ P(I): NEXT I: DATA 128,64,32,16,8,4,2,1 

1030 DEF FN S(R,C) = 16384 + INT (R/8)*2048 + (R - INT (R/8)*8)*32 + C 
1040 INPUT "TOP LEFT CORNER BLOCK IS AT ROW,COL ";ROW;" , "ZCOL 
1049 REM store display file data in array S$ for 5*8 blocks from ROW,COL. 


1050 FOR IT =@0 704 
1068 FOR J = @ T0 7 
107@ LET P = FN SCROW + 1,COL) 


1088 FOR K =@ T07 

1090 LET S(I1*8 + J + 1,K + 1) = PEEK(P + 256%J + K) 

1108 NEXT K: NEXT J: NEXT I 

1109 REM set screen to 20*32 which is four times area to be expanded. 

1110 BORDER 1: PAPER 7: INK @: CLS 

1120 PRINT AT 21,0; PAPER 1;,,: PRINT AT 0,0; PAPER 1;,, 

1129 REM take two Lines of pixels at a time for translation to quarter blocks. 
1132 FOR I = 1 TO 39 STEP 2 

1140 LET A I: LETB=I+1 

115@ FOR J 1 10 8 

1160 LET AS = "DPOOOOOOD": LET BS = AS 

1170 LET T = S(A,J): LET U = S(B,J) 

1179 REM calculate binary forms of pixels for J'th block across. 

1188 FOR K = 1 TO 8 

1198 IF T >= PC(K) THEN LET T 
1200 IF U >= PC(K) THEN LET U 
1212 NEXT K 

1219 REM take two pixels from each of the pair of bytes to make four quarters. 
1228 FOR K = 1 TO 4: LET D = 2*K: LET C=D-1 

1230 LET C$ = "BIN 1200" + BS(C TO D) + ASC(C TO D) 

1239 REM convert binary form of quarter blocks to character. 

1248 LET C = VAL C$: PRINT CHRS C; 

125@ NEXT K: NEXT J: NEXT I 

1260 RETURN 


T - PCK): LET ASC(K) 
U- PC(K): LET BSC(K) 


qn 
nq 


tou 
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The graphics characters generated by the above program are printed on the 
screen and form an exact image of whatever was in the 5 by 8 rectangle of blocks 
specified. This image has been scaled in each direction by a factor of 4, so that it 
now covers 20 by 32 blocks and each original pixel is represented by a square of 
4 by 4 pixels. 

With the COPY facility and the ZX printer listings, four times the normal 
width and depth can be produced by using the ‘big pixels’ routine 16 times and 
then joining together the separate pieces of listing. 


Exercise 5.2 
Write a routine that produces a listing of itself by COPYing each 5 by 8 section 
as ‘big pixels’ to the printer. 


User-defined Graphics 


The third set of characters is the User-defined Graphics set (CODEs 144 to 164). 
Another table of data for this set is held in the last 168 locations at the end of 
memory. When the machine is turned on, the 21 characters from “A” to “U” are 
copied into this table. These characters are accessed from the keyboard in graphics 
mode by typing the letters “‘A” to “U’’. The data in the table for these characters 
can be changed by the user, so that any required character can be displayed 
directly from the keyboard. There is a built-in function USR, which when given 
a string argument (“‘A”’ to “U”), will give us the address of the first piece of data 
for the equivalent graphics character. The address of the start of this table is 
stored in the system variable UDG (see page 175 of the Spectrum BASIC Hand- 
book (Vickers, 1982)). The CODE of the graphics character minus 144 and 
multiplied by 8 gives the relative position of the first of the eight pieces of data 
for that character in the table. The USR function calculates this position and 
adds it to UDG to get the absolute start address of the character in the store. 
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UDG can be altered so that fewer characters are available, say only those from A 
to H, leaving more room for programs, although this is usually unnecessary unless 
you have only 16K of RAM available. To illustrate the use of this function to 
alter a graphics character, type in the following command 


POKE USR “A” BIN 00100100 


Now if we enter graphics mode and type ‘‘A’’, we see that two extra pixel 
dots have appeared above the character “‘A’’. The program in listing 5.3 allows 
you to redefine all eight BINary VALUEs that represent a graphics character. 
The program then simulates graphics mode, allowing you to type user-defined 
graphics characters on the screen. 


Listing 5.3 


10 INPUT "CHARACTER TO BE REDEFINED",US: IF US="" THEN GO TO 18 

20 IF US < "A” OR US > "U" THEN GO TO 10 

3@ LET MEMORY = USR US$: CLS 

4@ FOR T=0 107 

5@ INPUT ("VALUE " + STRS I +" = BIN ");LINE BS 

6@ LET VALUE = VAL ("BIN '" + BS) 

7@ POKE MEMORY + I,VALUE 

80 IF LEN BS < 8 THEN LET BS = "BD" + BS: GO TO 80 

90 PRINT BS: NEXT I 

10D PRINT AT 10,0;"TYPE CHARACTERS OR ENTER” 

112 REM simulate graphics mode for letters A to U. 

119 LET R = 12: LETC=@ 

12Q PRINT AT R,C; FLASH 1;"G" 

130 IF INKEY$ <> "" THEN GO TO 130 

148 LET AS = INKEY$: IF AS = "" THEN GO TO 140 

149 REM if ‘enter’ is pressed restart program. 

150 IF AS = CHR$S 13 THEN GO TO 18 

160 IF AS < "a" OR AS > “u" THEN GO TO 1308 

169 REM convert character to equivalent user-defined graphic and print. 

170 LET AS = CHRS (CODE AS + 47) 

188 PRINT AT R,C;AS 

189 REM move fake cursor pointers. 

190 LET C= C + 1: IF C = 32 THEN LET C = @: LET R=R+#+1 
> IF R = 22 THEN LET R = 12 

20D PRINT AT R,C; FLASH 1;"G" 

212 GO TO 130 


Exercise 5.3 

Use listing 5.3 to generate a graphics character consisting of a chequer-board 
pattern of pixels instead of completely filled areas. Experiment with this using 
various PAPER and INK colours in order to make new colours, for example, red 
and yellow give orange. 


User-defined graphics characters can be directly incorporated in your programs 
to enhance the speed of display construction. The equivalent character could be 
constructed by a series of DRAW and PLOT commands but this would take 
longer in most cases. For instance, with characters we can build up patterns on 
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the screen very quickly compared to the length of time it would take to PLOT 
or DRAW the same pattern. Listing 5.4 shows how this can be done using user- 
defined characters “A” to ““D” (the darker characters on the listing denote 
characters in graphics mode). When these graphics characters have been defined 
then they, rather than the corresponding alphabetic graphics character, will 
appear in program listings. 


Listing 5.4 


202 REM main program 

209 REM fill screen with a diagonal pattern of first four graphics characters. 
218 OVER @ 

220 INPUT " INK ";I: INK I 

230 INPUT " PAPER ";I: PAPER I 

240 LET A$ “ABCD: LET BS = “BCDA" 
2508 LET CS "CDAB'": LET DS = "DABC" 
260 FOR J = @ TO 7 

270 FOR T=@ 704 

288 PRINT AT 1*4,J*4;AS$ 

290 PRINT AT I*4 + 1,J%4;BS 

30D PRINT AT I*4 + 2,3%4:C$ 

310 PRINT AT I*4 + 3,J*4;D$ 

320 NEXT I 

33 PRINT AT 1*4,J%4;AS 

340 PRINT AT 1*4 + 1,J*4;B% 

35@ NEXT J 

368 STOP 


Alternate Character Sets 


So far we have used up to 37 graphics characters to create pictures, but by using 
alternate standard sets we can add a further 96 with every new set we define. To 
use an alternate set we simply change the value stored in CHARS so that it points 
to our new set in RAM instead of the normal table. We have seen that the amount 
of work that goesinto constructing even one character is enough to imply that the 
construction of a complete new character set will be a very arduous task. So we 
need a program that will simplify this task, and also allow characters to be 

altered once created. Listing 5.5 is such a character-generation and editing pro- 
gram, and. was designed for use in the development of graphical display programs. 


Listing 5.5 


1 CLEAR 62294: INK ®: PAPER 7: BORDER 7: OVER 1: LET N = @ 
: REM for 16K machines use CLEAR 255 + the value of S(I), where I is the index 
of thelowest character set which will fit in the avajlable store. 
2 DIM 7$(8,8): DIM T$(8,8): DIM S(6): DIM P(8): DIM B(8): DIM G(7) 
: REM Line numbers to GO TO for menu options. 
3 FOR I = 1 TO 7: READ GCI): NEXT I 
: DATA 61,67,71,100,106,112,119 
: REM powers of 2 ready for use in binary conversions. 
4 FOR I = 1 TO 8: READ PCI): NEXT I 
: DATA 128,64,32,16,8,4,2,1 


90 Advanced Graphics with the Sinclair ZX Spectrum 


REM values which must be placed jn CHARS to use each alternative set. 
for 16K machines these numbers should be, 
15360,29271 ,30039,30807 ,31575,32888 (see Appendix). 
5 FOR I = 1 TO 6: READ SCI): NEXT I 
: DATA 15368,62039,62807 ,63575,64343 ,64848 
6 LET S =1 : GO SUB 17 


: REM check set 1 is being used and print menu. 


7 CLS : PRINT AT 2,2;"%** CHARACTER GENERATOR ***" 

8 PRINT AT 5,6; PAPER 531"; PAPER 7;" ... PRINT ALL SETS" 
9 PRINT AT 7,6; PAPER 5;"2"; PAPER 7;" ... PRINT ONE SET” 
19 PRINT AT 9,6; PAPER 5;"3"3 PAPER 7;" ... EDIT CHARACTER” 
11 PRINT AT 11,6; PAPER 5;"4"; PAPER 7;".-. COPY SET TO SET" 


12 PRINT AT 13,6; PAPER 535"; PAPER 7;" .-. SAVE SET" 
13 PRINT AT 15,6; PAPER 5;"6"; PAPER 7;" ... LOAD SET" 
14 PRINT AT 17,6; PAPER 5;"7"; PAPER 7;" ... RUN YOUR PROGRAM” 


: REM wait for valid option. 


15 INPUT "WHICH OPTION ";0P: IF OP < 1 OR OP > 7 THEN GO TO 15 


: REM jump to appropriate routine. 


16 GO TO G(OP) 
REM most subroutines are Located at start of program for efficiency. 
REM routine to change to set S$ by altering chars to point to new table of data. 
17 LET HI = INT (S(S)/256): LET LO = S(S) - HI*256 
18 POKE 23606,L0: POKE 23687,HI: RETURN 
: REM general routine to wait before clearing screen and returning to menu. 
19 LET S = 1: GO SUB 17: INPUT "PRESS ENTER TO RETURN TO MENU"; LINE AS : RE 
: REM clear binary characters array. 
20 FOR I = 1 TO 8: LET Z$(I) = "POPOOOOD": NEXT I: RETURN 
REM input a valid set number and give upper and Lower bounds for characters. 
21 INPUT "WHICH SET ";S: IF S < 1 OR S > 6 THEN GO TO 27 
22 LET A = 32: LET B = 127: IF S = 6 THEN LET A = 65: LET B = 85 
23 RETURN 
REM input a valid character for chosen set. 
24 INPUT "WHICH CHARACTER “;C$: LET C = CODE C$ 
: IF C < A OR C > B THEN GO TO 24 
25 RETURN 
REM draw eight by eight block grid at horizontal position altered by N. 
26 LET NN = 64 + N: FOR I = @ TO 8 
27 PLOT I*8 + NN,64: DRAW @,64 
28 PLOT NN,I*8 + 64: DRAW 64,0 
29 NEXT I: RETURN 
: REM produce graphical equivalent of binary string array inside grid. 
30 FOR I= 1 TO 8: FOR J = 1 TO 8 
31 LET P = 7: IF N = @ AND ZS$(I,J) = "1" OR N = 96 AND TSC(I,J) = "1" 
THEN LET P = 4 
32 GO SUB 48: NEXT J: NEXT I: RETURN 
REM overprint cursor on a square in the grid. 
33 PLOT X,Y-2: DRAW 0,4 
34 PLOT X-2,Y: DRAW 4,8 
35 RETURN 
: REM double a corner of a character into a temporary array TS and save it. 
36 INPUT "WHICH CORNER ";C: IF C < 1 0R C > 4 THEN GO TO 36 
37 FOR I = 1 TO 8: LET TSC(I1) = "@BOOOOHO": NEXT I: GO TO 36 + Cx2 
38 FOR 1 = 1 TO 4: FOR J = 1 TO 4: IF Z$(I1,J) = 1" 
THEN LET TI = 2*I: LET TJ = 2%J: GO SUB 46 
39 NEXT J: NEXT I: RETURN 
40 FOR I= 1 TO 4: FOR J = 5 TO 8: IF ZS(I,J) = "1" 
THEN LET TI = 2*I: LET TJ = 2*(J - 4) : GO SUB 46 
41 NEXT J: NEXT I: RETURN 
42 FOR 1 = 5 TO 8: FOR J = 7 TO 4: IF 2$(1,J) = 1" 
THEN LET TI = 2*(I - 4): LET TJ = 2%J: GO SUB 46 
43 NEXT J: NEXT I: RETURN 
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44 FOR T= 5 TO 8: FOR J = 5 TO 8: IF Z$(I,J) = "1" 
THEN LET TI = 2*(I - 4): LET TJ = 2*(J - 4): GO SUB 46 
45 NEXT J: NEXT I: RETURN 
: REM subroutine to convert one pixel into four pixels jin doubled array. 
46 LET TS(TI,Td) = "1" LET TSCTI-17,T1) = 41s LET TSCTI,TI-1) = 1” 
: LET TS(TI-1,TJ-1) = "4": RETURN 
: REM overprint the identifying Labels at the corners of the grid. 
47 PRINT AT 5,7;7'1": PRINT AT 5,16;"2": PRINT AT 14,7;"3" 
: PRINT AT 14,16;"4": RETURN 
: REM subroutine to print a coloured block in a square of the grid. 
48 PRINT AT I+5,J+7+N/8; PAPER P;" ": RETURN 
: REM display doubled character in a grid on the right and save character. 
49 LET N = 96: GO SUB 26: GO SUB 30 
5@ GO SUB 21: GO SUB 24: LET D = S(S) + C*x8 - 1 
51 FOR I = 1 TO 8: POKE D + I,VAL ("BIN " + TSC1I)): NEXT I 
52 LET N = @: CLS: RETURN 
: REM copy reflection of Z$ array about x-axis into T$ array. 
53 FOR I= 1 TO 8: FOR J = 1 TO 8 
54 LET T$(9-1,J) = Z$C(I,J): NEXT J: NEXT I: GO SUB 59: RETURN 
: REM copy rotation of Z$ array into T$ array. 
55 FOR I= 1 TO 8: FOR J = 1 TO 8 
56 LET TS(9-J,1) = Z$C(1,J): NEXT J: NEXT I: GO SUB 59: RETURN 
: REM copy reflection of Z$ array about y-axis into T$ array. 
57 FOR 1 = 1 TO 8: FOR J = 1 TO 8 
58 LET T$(1,9-J) = Z$C1,J): NEXT J: NEXT I: GO SUB 59: RETURN 
: REM routine to copy T$ array back into Z$ array. 
59 FOR I= 1 TO 8: FOR J = 71 TO 8 
6@ LET Z$(I,J) = TSCI,J): NEXT J: NEXT I: RETURN 
: REM start of opticn handling routines. 
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: REM print out all five complete character sets and user-defined graphics set. 


61 CLS: FOR S = 1 TO 5: GO SUB 17 

62 PRINT AT S*4 - 4,0; 

63 FOR C = 32 TO 127: PRINT CHRS C;: NEXT C 
64 NEXT S: GO SUB 17: PRINT AT 20, 0; 

65 FOR C = 65 TO 85: PRINT CHRS Cz: NEXT C 


: REM use standard routine to wait then back to menu. 


66 GO SUB 19: GO TO 7 

: REM print out one set and give the charcters with which they correspond. 
67 CLS: GO SUB 21: LET SS = $ 

68 FOR C = A TO B: PRINT PAPER 6;CHR$ C;"="7: LET S = SS: GO SUB 17 
69 PRINT CHRS Cz: LET S = 1: GO SUB 17: PRINT " "3: NEXT C 


: REM return to menu. 


70 GO SUB 19: GO TO 7 

: REM option three, editting a character, clear screen and Z$ binary array. 
71 CLS: GO SUB 20 

: REM which set and character, calculate data position for character. 

72 GO SUB 21: GO SUB 24: LET D = S(S) + Cx8 - 1 


: REM get eight binary numbers from table of data. 


(3: FOR I= 4) TO°Be LET BCI) = PEEK (D + 1): NEXT 1 

: REM convert each number into a binary string of eight digits. 

74 FOR I= 1 TO 8: LET T = BCI) 

75 FOR J = 170 8 

(6 IF JT >= PGI) THEN LET Z$¢1,J)) = "1"2 LET T = T ~ PW) 

77 NEXT J: NEXT I 

: REM draw a grid and put green blocks in squares to represent binary ones. 
78 GO SUB 26: GO SUB 30 

: REM initialise cursor position in pixels and grid reference values. 

79 LET X = 68: LET Y = 124: LET T= 4: LET J =1 


: REM overprint cursor on square. 


8@ GO SUB 33 
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: REM wait for next keypress. 


81 IF INKEYS <> "" THEN GO TO 81 
82 IF INKEYS = "" THEN GO TO 82 


: REM get command and remove cursor. 


83 LET AS = INKEYS: BEEP 0.@5,3@: GO SUB 33 
: REM check for cursor movement controls with or without the shift key. 


84 IF (AS = "5" OR AS = CHRS 8) AND J > 1 THEN LET X = X - 8: LET J =J- 1 
85 IF (AS = "6" OR AS = CHRS 10) AND I < 8 THEN LET Y = Y - 8: LET I=1 
86 IF (AS = "7" OR AS = CHRS 11) AND I > 1 THEN LET Y = Y + 8: LET I=I1 
87 IF (AS = "8" OR AS = CHRS 9) AND J < 8 THEN LET X = X + 8: LET J = J + 


: REM check for special commands, im upper or lower case. 


: REM Plot, fill in a square. 
88 1F AS = "P" CR AS = "yp" THEN LET P = 4: LET Z$(1,J) = "1": GO SUB 48 


: REM Off, blank out a square. 


89 IF AS = "0" OR AS = "Oo" THEN LET P = 7: LET Z$(1,J) = "OB": GO SUB 48 


: REM Rotate character by 98 degrees anti-clockwise. 


9@ IF AS = "R" OR AS = "rr" THEN GO SUB 55: GO SUB 3@: GO TO 79 


: REM reflect in the X or horizontal axis. 


91 IF AS = "X" GR AS = "x" THEN GO SUB 53: GO SUB 3B: GO TO 79 


: REM reflect in the Y or vertical axis. 


92 IF AS = "Y" OR AS = "y" TKEN GO SUB 57: GO SUB 30: GO TO 79 

: REM Merce another character with current pattern. 

93 IF AS = "'M'' OR AS = "m" THEN GO SUB 26: GO 10 72 

: REM make Double-size copy cf one corner of character. 

94 IF AS = "D" OR AS = "dG" TKEN GO SUB 47: GO SUB 36: GO SUB 49: GO TO 78 
: REM unless you want to Save the character go back and wait for more commands. 
95 IF AS <> "S" AND AS <> "s" THEN GO TO 88 

: REM replace character in date table by using the BIN function to convert. 

96 GC SUB 21: GO SUB 24 

97 LET D ="SiS) t C48.-— 4 

$8 FOR I= 1 TO 8: POKE D + 1,VALC("BIN “ + Z$(I)): NEXT I 


: REM return to menu. 


99 GO SUB 19: GO TO 7 


: REM option four copy set to set. 
100 INPUT "FROM SET ";A;" TO SET "3B 


: REM make sure sets are valid. 


101 IF A <10RB< 10R A> 5 ORB > 5 THEN GO TO 100 


: REM don't bother if sets are same. 


102 IF A = B THEN GO TO 185 

: REM make copy of data from one table to another. 

103 PRINT AT 21,10;"PLEASE WAIT": FOR K = 256 TO 1024 
104 POKE (S(B) + K), PEEK (SCA) + K): NEXT K 


: REM return to menu. 


105 GO SUB 19: GO TO 7 
: REM option five save data table for a set of characters as bytes on tape. 
106 CLS: PRINT AT 2,6;"SAVING CHARACTERS": INPUT "WHAT FILE NAME ";NS 

: IF NS = "" THEN GO TO 7 
107 PRINT AT 4,18;N$: INPUT “SAVE WHICH SET "7S 

: IF (S < 2 OR S > 6) AND S <> 11 THEN GO TO 107 
: REM if you type 5+6 then spectrum sets S = 11 so save sets 5 and 6 together. 
108 IF S$ = 11 THEN SAVE NS CODE (S(5) + 256),168 + 768: GO TO 111 


: REM set 6 is smaller than normal sets. 


109 IF S = 6 THEN SAVE N$ CODE (S(6) + 512),168: GO TO 111 
118 SAVE NS CODE (SCS) + 256),768 


: REM return to menu. 


111 GO SUB 19: GO TO 7 
: REM option six reload data table for a set of characters as bytes from tape. 
112 CLS: PRINT AT 2,6;"LOADING CHARACTERS": INPUT "WHAT FILE NAME ";NS 
: IF N$ = "" THEN GO TO 7 
113 PRINT AT 4,18;N$: INPUT "LOAD WHICH SET ";S 
IF (S < 2 OR S > 6) AND S <> 11 THEN GO TO 113 
114 PRINT AT 21,10;"Start tape.” 
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: REM if you type 5+6 then spectrum sets S$ = 11 so Load sets 5 and 6 together. 
115 IF S = 11 THEN LOAD N$ CODE (S(5) + 256),168 + 768: GO TO 118 


: REM Load user defined set. 


116 IF S = 6 THEN LOAD NS CODE (S(6) + 512),168: GO TO 118 
117 LOAD NS CODE (S(S) + 256),768 


: REM return to menu. 


118 GO SUB 19: GO TO 7 


The CHARACTER GENERATOR routines are intended to take all the hard 
work out of preparing and using defined characters: they allow you to edit and 
manipulate characters, use alternate character sets and graphics characters, save 
and reload defined chracters and immediately test your own programs. The 
routines are designed for the 48K Spectrum to sit in the bottom part of the 
memory (lines 1 to 118), followed by your own program starting after line 118, 
followed by the renumber and delete programs (from chapter 13) starting at line 
9900. If you have the 16K version, then this program should be run independ- 
ently of other routines — see Appendix A. 

The program first offers a choice of seven options, which we will look at in 
turn. 


(1) The first option is PRINT ALL SETS. This will print the normal character 
set (set 1), followed by the four alternate character sets (2 to 5), followed by the 
user-defined graphics set (set 6). The last few characters of set 5 will contain 
spurious data, a remnant of the GO SUB stack, which has been moved out of 
harm’s way. 

(2) The second option is PRINT ONE SET. These are identified with the num- 
bers 1 to 6 as follows: 1 standard set — cannot be changed; 2 to 5 alternate sets 
— may temporarily replace standard set; 6 user-defined graphics set — always 
available. On selecting one of these numbers the screen will display each character 
of the standard set with = after it, both on a yellow background, followed by the 
equivalent character of the alternate set. For set 6 this will be produced only for 
the characters “A” to “U”, and it will show the characters available when using 
these keys in graphics mode. 

(3) Option three is the editor. This is the most complicated option and has a 
large set of commands accessed by typing their initial letter. First, though, you 
will be asked with which set and which character you wish to start. If you want 
to start with a blank grid of eight by eight pixels, use set 1 and the space charac- 
ter. (To use the quote marks character it will be necessary to type it twice — see 
page 47 of the Spectrum BASIC Handbook (Vickers, 1982)). 

You will now be in edit mode and the character you have chosen will be 
displayed as green blocks in an 8 by 8 grid. The cross in the top-left corner is the 
edit cursor. The cursor is controlled by the standard cursor keys (‘‘5’’, “6”, “7”, 
“8”) either with or without the shift key. 

The first two commands are PLOT or OFF, which change a square in the 
character grid. Simply move the cursor over the square and press either “P” or 
10) 
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“*P” makes the square green, equivalent to a binary on or one INKed-in pixel, 
and “‘O”’ erases the square to white. 

The next three commands all specify transformations similar to those per- 
formed on two-dimensional objects in chapter 4. ROTATE turns the character 
through 90 degrees anti-clockwise about its centre. X-AXIS reflects the character 
about the horizontal axis and Y-AXIS reflects the character about the vertical. 
These commands can be used to create text sets for any orientation. 

Finally we have MERGE, SAVE and DOUBLE. MERGE allows any character 
to be merged, into the grid, on top of what is already being edited. This is very 
useful for creating foreign language sets; for example, by placing a slash through 
an O for Scandinavian languages, or by adding accents for French, etc. to letters. 
The SAVE command asks in which set we wish to save the newly created charac- 
ter, and to which standard character is it equivalent. If set 1 is specified the 
character will be lost, since set 1 is held in the Read Only Memory of the 
Spectrum: this can be useful to dispose of any unwanted grids created by mis- 
take. DOUBLE is a powerful feature that allows you to take any quarter of the 
character you are editing, create a double-size copy of the quarter and SAVE it 
immediately as a single character. This option does not affect the character you 
are editing, so all four corners may be copied in succession into four different 
characters within the same editing stage. This feature can be used to create 
characters of double, quadruple or larger size with ease. 

(4) COPY SET TO SET is the fourth option available and can be used to make 
copies of a complete set for subsequent manipulation, or simply to move one of 
the alternate sets around in memory. Sets 2 to 5 are stored at the end of memory, 
in the locations preceding the user-defined graphics, with set 5 ending at the 
location immediately before the user-defined set. The area of store used for sets 
2 to 5 is reserved and protected from BASIC use by the command CLEAR 62294 
in the 48K version (see page 168 of the Spectrum BASIC Handbook (Vickers, 
1982)). 62294 is one less than the first location in the table for set 2. In order to 
protect only the areas for sets I onwards, we need to evaluate S(I) + 255 and 
place this number in the CLEAR command at the start of the program. S(I) is the 
value assigned to the system variable CHARS that enables PRINT to use set I. 
These values are READ from the DATA statement at line 3. Note the changes 
for the 16K machine given in Appendix A. 

(5) and (6) Option five allows character sets to be saved on tape and option six 
for them to be reloaded. If, in reply to the question ‘WHICH SET’, we type a 
number between 1 and 6, then that set is SAVEd or reLOADed. Should we type 
5 + 6 then both sets 5 and 6 will be saved or loaded as a single unit. 

To allow other programs to load and use alternate sets of characters, lines 112 
to 117 should be copied from the ‘CHARACTER GENERATOR’ along with the 
subroutine (at 17 and 18), which allows switching between sets. The array S and 
its DATA from line 5 must also be included. 

(7) The final option is RUN YOUR PROGRAM, which will transfer control to 
the first line following the character generator or, if nothing is there, stop. 
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In order to familiarise yourself with the ‘CHARACTER GENERATOR’ 
follow the instructions laid out below. 

MERGE listings 5.4 and 5.5 on the 48K Spectrum; run them separately on 
the 16K machine. Create a character like an ink-blot pattern and SAVE it as 
character “A” in set 6. Edit the character: rotate it and SAVE it as character 
“B” in set 6. Edit “A” in set 6: use X-AXIS reflection on it and SAVE it as “C” 
in set 6. Edit ‘“B” in set 6: use Y-AXIS reflection on it and SAVE it as “D” in 
set 6. Now use option 7 to RUN YOUR PROGRAM and see what pattern 
emerges, 


Exercise 5.4 

Experiment with various possible symmetries of characters and patterns for 
placement of characters on the screen. Alter the program so that it tries all the 
possible combinations of INK and PAPER colours within two nested FOR... 
NEXT loops. 


Figure 5.4 


Exercise 5.5 


Now create characters for dominoes using the ‘CHARACTER GENERATOR’ 
from listing 5.5. This enables construction of a display similar to figure 5.4. 


Exercise 5.6 

Write a routine that copies one set to another but uses some of the editor 
routines from the ‘CHARACTER GENERATOR’ to perform transformations on 
each character as it is copied. Figure 5.5 shows a listing produced with a set that 
has been ROTATED. 


Let us now consider a complete program that has been developed using the 
‘CHARACTER GENERATOR’ and subsequently separated from the develop- 
ment system to stand alone. The ‘MASTER MIND’ program (listing 5.6) is shown 
in mid-game in figure 5.6 and we can see immediately that an alternate character 
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Figure 5.5 


set was used, This character set was created by DOUBL(E)ing the required 
letters and numerals of set 1 and storing the top-left and top-right corners in the 
capital letters of set 5 and the bottom corners in the lower case letters of set 

5. The two sizes of peg were stored in the user-defined graphics set, which is 
independent of the main set; hence they are always available whether we are 
using set 1 or set 5. The DOUBLE letters were edited to smooth out their edges 
and the combined sets 5 + 6 were stored on cassette tape as ‘masterset’, 


Listing 5.6 


1 CLEAR 62294: INK @: PAPER 7: BORDER 7 


: REM routines to allow use of alternate sets 
: REM remember to make alterations for 16K machines as in Listing 5.5. 


2 DIM S(6) 
5 FOR I = 1 TO 6: READ SCI): NEXT I 
: DATA 15360,62039,62807 ,63575,64343 ,64848 
6 LET S = 1 : GO SUB 17 
7 GO TO 200 
17 LET HI = INT (8(S)/256): LET LO = S(S) - HI*256 
18 POKE 23606,L0: POKE 23607,HI: RETURN 
112 CLS: PRINT AT 2,6;"LOADING CHARACTERS": LET N$ = "masterset" 
113 PRINT AT 4,10;N$: LETS =5 +6 
114 PRINT AT 21,10;"Start tape.": PRINT AT 5,0; 
115 LOAD N$ CODE (S(5) + 256),168 + 768 
118 RETURN 


198 REM Load characters and initialise scores 

199 REM arrays to hold Guess, Target and a copy of target for checking. 

200 GO SUB 112: LET MYSCORE = @: LET SCORE = @: DIM G(5): DIM T(4): DIM X(4) 
209 REM use routine to draw display. 

212 RANDOMIZE: GO SUB 480 

219 REM set up target colours and go into guess loop. 

220 FOR I = 1 TO 4: LET TCI) = INT CRND*6) + 1: NEXT I: LET GO = @ 

229 REM next guess, if you have had six then you Lose. 


Character Graphics on the ZX Spectrum 


LET GO = GO + 1: IF GO = 7 THEN GO TO 3% 

REM input routine for guess. 

GO SUB 788 

REM print guess on board (A is graphics A). 

PAPER 7 

PRINT AT 1 + GO*3,17; INK G(1);"A"; INK GC2);" A"; 

INK G(3);" A"; INK G(4);" A” 

REM check guess against temporary copy of target. 

LET NB = @: LET NW = @: FOR I = 1 TO 4: LET XC€I) = TCI): NEXT I 

REM Look for exact matches first, if found then cross off both pegs. 
FOR I= 1 TO 4: IF GCI) = X(I) THEN LET X(I) = 0: LET NB = NB + 1 

: LET GCI) =7 

NEXT I 

REM check for right colour wrong position. 

FOR 1=1 TO 4: FOR J = 1 TO 4: IF GCI) = X(J) THEN LET NW = NW + 1 
: LET XQ@J) = @: LET GCI) =7 

NEXT J: NEXT I 

REM set up array x with appropriate numbers of black and white pegs. 
FOR I = 1 TO NB: LET X(I) = @: NEXT I: FOR I = NB + 1 TO NB + NW 
REM pad out array with non-visible green pegs. 

LET X(1) = 7: NEXT I: IF NB + NW < 4 THEN FOR I = NB + NW + 1 TO 4 
: LET XCI) = 4: NEXT I 

REM display marker pegs on board. 

PAPER 4: PRINT AT GO*x3 + 1,2; INK X(1);"B"; INK X(2);"B"; 

PRINT INK X(3);"B"; INK X(4);"B"; 

REM if you got it all right then you win. 

IF NB = 4 THEN GO TO 400 

REM add one to computers score and Loop back for next guess. 

LET MYSCORE = MYSCORE + 1: PRINT AT 18,26; PAPER 6; INK O;MYSCORE 
GO TO 230 

REM if you Lose computer gets 1@ more points. 

LET MYSCORE = MYSCORE + 10: GO To 412 

REM if you win you get 18 points. 

LET SCORE = SCORE + 10 

REM build up string for display at bottom. 

LET I$ = CHRS 17 + CHRS 7 + “TARGET WAS " + CHRS 16 + CHRS T(1) + "A 


LET I$ = I$ + CHRS 16 + CHRS T(2) + “A " 

LET IS = IS + CHRS 16 + CHRS T(3) + "A ™ 

LET I$ = I$ + CHRS 16 + CHRS T(4) + "A" + CHRS 16 + CHRS B 
LET I$ = I$ + CHRS 6 + "' PRESS ENTER TO CONTINUE "4 


REM show target ard wait for "enter' before restarting game. 
INPUT (I$); LINE BS 

GO TO 212 

REM draw board. 

GVER @: BORDER 6: PAPER 7: CLS: INK 0 

REM use alternate set to print MASTER MIND in double size. 
LET S$ = 5: GO SUB 17 

PRINT AT @,@;" ABCDEFGHIJKL ABMNOPQR" 

PRINT AT 1,@;" abcdefghijklL abmnopqr” 

REM print out double size numbers. 

PRINT AT 4,7;"ST": PRINT AT 5,7;"st" 

PRINT AT 7,7;"UV": PRINT.AT 8,77"uv" 

PRINT AT 10,7;"WX": PRINT AT 11,7; "wx" 

PRINT AT 13,7;"YZ": PRINT AT 14,7;"yz" 

PRINT AT 16,7;"C\": PRINT AT 17,7;"C]" 

PRINT AT 19,73°1$": PRINT AT 20,73;"3"" 

REM wipe of sides of board in yellow. 

FAPER 4: FOR I = 3 TO 2@: PRINT AT 1,1;" "s NEXT I 
PAPER 6: FOR I = @ TO 21: PRINT AT 1,24;" ee) NEXT OL 
PAPER 7: FOR I = 4 TO 19 STEP 3 

REM print holes for pegs. 


PRINT AT 1,117;"A A A A": NEXT I 


97 


2OB 
809 
210 
820 
829 
830 
840 
850 
860 
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REM print credits on side. 

LET S = 1: GO SUB 17: PAPER 2 

LET GG =" c BY BRIAN JONES AND IAN ANGELL 1982 > 
FOR T= 0 T0 8 

PRINT AT 12 + 1,24; PAPER 6; INK 2; CHRS 133; 

PAPER 2; INK 7;G$(I*6 + 1 TO I*6 + 6); 

FRINT INK 2; PAPER 6;CHRS 138: NEXT I 

REM set up score displays. 

PAPER 6: PRINT AT 2,26;"YOUR": PRINT AT 3,25;"'SCORE" 
PRINT AT 5,26;SCGRE 

FRINT AT 7,26;"MY": PRINT AT 8,25;"SCORE" 

PRINT AT 10,26;MYSCORE 

REM draw horizontal Lines across board. 

FOR 2 = 2 TO 2@ STEP 3: LET Y = 168 - 8*I 

PLOT 7,Y: DRAW 176,@: PLOT 7,Y - 7: DRAW 176,08: NEXT I 
REM draw vertical lines cn board. 

PLOT 7,7: DRAW 0,145: SLOT 8,7: DRAW 0,145 

PLOT 183,7: DRAW @,145: FLOT 184,7: DRAW 0,145 

PLOT 55,7: DRAW @,1745: PLOT 56,7: DRAW @,145 

PLOT 71,7: DRAW @,145: PLOT 72,7: DRAW 0,145 

RETURN 


/ REM get four pegs for 4 guess. 


LET NG = 1 

REM use subroutine to build display string for input prompt. 

GO SUB 828: INPUT (I1%);G(NG): IF GCNG) < 1 OR G(NG) > 7 THEN GO TO 790 
REM backspace to remove Last peg. 

IF GCNG) = 7 THEN LET NG = NG - 1: GO TO 798 

REM keep going till all four pegs are in ard have been ccnfirmed. 

LET NG = NG + 1: IF NG < 6 THEN GO TO 790 

RETURN 

REM make up string with colour codes and characters instead of numbers. 
LET IS = CHRS 17 + CHRS 7 + "YOUR GUESS " 

IF NG <= 1 TKEN LET NG = 1: RETURN 

FOR J = 1 TO NG - 1: LET 1% = I$ + CHRS 16 + CHRS GCJ) + "A "> NEXT J 
RETURN 


MASTER MIND 


Figure 5.6 
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The routines taken from the ‘CHARACTER GENERATOR’ program have 
been left with their original numbering so that they can be easily identified and 
compared with the original. The display for the top part of the screen is built up 
in easy stages from characters, colours and lines so that the role of each stage of 
construction is straightforward and easily adjusted. The program uses also the 
techniques of dynamic INPUT strings (which will be discussed in chapter 13) to 
create the display for the lower part of the screen. 


Exercise 5.7 

Tidy up the ‘MASTER MIND’ program, giving it a structured appearance. 
Increase its legibility with suitable variable names especially for routines. Adapt 
the ‘MASTER MIND’ program to play against you. (Programs that do this have 
occasionally been published in the past in computing magazines. Some are still 
available; see Ahl, 1980 and Liffick, 1979). 

Finally in this chapter, we give a simple illustration of how effective character 
graphics can be in producing a high-quality display. The following short program 
uses the ‘chesspiece’ characters from the cassette tape to display a chess board 
(for example, figure 5.7 — also see cover) and to move pieces in response to 
INPUTs. You can of course produce your own new chess set. 


Listing 5.7 


9 REM set up to use just sets 1 and 5 for 16K use CLEAR 31830: $5 = 31575. 
1@ CLEAR 64598: LET S5 = 64343: LET $1 = 15368 
20 INPUT " LOAD CHARS ? ";YS: IF YS = “y"™ 
THEN LOAD "chesspiece” CODE SS + 256,768 


100 REM Lay out board 

110 INK @: PAPER @: BORDER @: CLS 

120 PAPER 6 

129 REM print yellow strip around board. 

130 FOR I = 1 TO 2@: FOR J = 1 TO 2 

149 PRINT AT.27 — 1,8 + 55% TE UPRINT AT 1,3 4% 233" * 
150 PRINT AT J,I + 53" ": PRINT AT J + 18,26 - I;" " 
166 NEXT J: NEXT I 

169 REM print squares of board. 


170 LETC =4 

180 FOR I = 2 TO 8 STEP 2: FOR J = 2 TO 8 STEP 2 

190 PAPER C: PRINT AT J + 1,1 + 63" "z PRINT AT J + 2,1 + 63" " 
200 PRINT AT 19 - J,24 - 1;" “: PRINT AT 20 - J,24- 13" " 

212 LET C = 7 - C: PAPER C 

220 PRINT AT J + 1,24 - 13" "“z: PRINT AT J + 2,24- 13" ” 

230 PRINT AT 19 ~ J,I + 6;" ": PRINT AT 20 - J,I + 6;" " 


248 NEXT J: LET C = 7 — C: NEXT I 

249 REM print letters and numbers around board. 

250 PAPER 6 

260 FOR I = 1 TO 8: PRINT AT 20,6 + 2*I;CHRS (64 + 1) 
* PRINT AT 241 + 2,25709 — Dr NEXT I 


300 REM set out pieces 

318 DIM B(8,8) 

319 REM white pieces have ten added to the number identifying type of piece. 
320 FOR I 1 TO 8: LET BC2,1) 6: LET B(7,1) = 16: NEXT I 

330 FOR I 1 10 3¢ LET BCID 4 - I: BC1,1+5) = 1 
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340 LET B(8,1) = 14 - I: LET B(8,I+5) = I + 10: NEXT I 
350 FOR I = 4 TO 5: LET B(1,1) = 9 — I: LET B(8,I) = 19 - I: NEXT I 
359 REM set pointers to routines. 
360 LET move = 1902: LET input = 1122: LET piece = 1200: LET flash = 1300 
: LET charset = 1408: LET List = 1500 
369 REM draw headings for move display. 
370 PAPER @: INK 7: PRINT AT 1,0;"WHITE": PRINT 1,27;"BLACK" 
38@ PLOT @,159: DRAW 39,0: DRAW @,-1: DRAW -39,0 
398 PLOT 216,159: DRAW 39,0: DRAW Q,-1: DRAW -39,8 
399 REM use transparent paper and then call routine to draw each piece. 
400 PAPER 8: FOR K = 1 TO 2: FOR J = 1 TO 8: LET I = K: GO SUB piece 
: LET I= 9 ~ K: GO SUB piece : NEXT J: NEXT K 


5@0 REM main program 

509 REM array to hold moves and set no of moves to one. 

518 DIM N$(2,100,5): BORDER @: LET S = $1: GO SUB charset: LET N = 1 

519 REM get whites move, flash squares specified. 

520 LET I$ = "WHITE": GO SUB jnput: LET F = 1: GO SUB flash 

529 REM allow move to be cancelled and re-entered. 

530 INPUT "ACCEPT ? ";Y$: IF YS <> "Y" THEN LET F = @: GO SUB flash: GO TO 528 
539 REM move piece and display move on side. 

540 GO SUB move: LET N$(1,N) = M$: GO SUB List 

549 REM repeat above process for black side. 

550 LET I$ = "BLACK": GO SUB jnput: LET F = 1: GO SUB flash 

56@ INPUT "ACCEPT ? ";Y$: IF Y$ <> "Y" THEN LET F = @: GO SUB flash: GO TO 550 
570 GO SUB move: LET N$(2,N) = M$: GO SUB List 

579 REM next move. 

580 LET N= N+ 1: GO TO 520 


1000 REM move 

1009 REM move specified pieces and copy the pieces onto the screen. 
1010 LET B(12,J2) = BCI1.J1): LET I = 12: LET J =J2: GO SUB piece 
1020 LET B(I1,J1) = @: LET I = I1: LET J =J1: GO SUB piece 

1030 RETURN 


1100 REM input 
1109 REM input coordinates of move square and destination square. 
1110 INPUT (IS + ""S MOVE Now " + STRS N+ " '"')3 LINE M$;"="> LINE TS 
IF MS = "STOP" OR M$ = " STOP “ THEN STOP 
1120 IF LEN M$ <> 2 OR LEN TS <> 2 THEN GO TO input 
1130 LET J1 = CODE M$(1) - 64: LET 11 = 9 - CVAL M$(2)) 
IF 11 < 1 OR I1 > B OR J1 < 1 OR J1 > 8 THEN GO TO input 
1140 LET J2 = CODE T$(1) - 64: LET I2 = 9 - (VAL T$(2)) 
IF 12 < 1 OR I2 > 8 OR J2 < 1 OR J2 > 8 THEN GO TO input 
115@ LET M$ = MS + "-" + TS: RETURN 


1200 REM piece 
1201 REM IN: I,J 
1209 REM redraw the square at I,J from the value stored jn the board array. 
1212 LET S$ = SS: GO SUB charset: LET B = BCI,J): INK 8 
IF B > 12 THEN INK 7: LET B = B - 10 

1220 LET B = 2*B: LET AS = CHRS (63 + B) + CHRS (64 + B) 

: LET BS = CHRS (95 + B) + CHRS (96 + B) 
1230 IF B = @ THEN LET AS =™ ": LET BS = AS 
1240 PRINT AT Ix2 + 1,J*2 + 67A$: PRINT AT I*2 + 2,J%2 + 6;BS 
1250 LET S = $1: GO SUB charset: RETURN 


1300 REM flash 
1301 REM IN: F,11,J1,12,J2 
1329 REM change the flash attribute of two squares I1,J1 and I2,J2. 
1312 FLASH F: OVER 1: INK 8: PRINT AT I2*2 + 1,J2*2 + 6;" " 

: PRINT AT I2*2 + 2,J2*2 + 6;" " 
132@ PRINT AT I1*2 + 1,J1*2 + 67" "™ : PRINT AT I1*2 + 2,J1*2 + 67" " 
1330 FLASH @: OVER @: RETURN 
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1400 REM charset 

1401 REM IN: S 

1499 REM change CHARS to S$ to use alternate sets. 
1410 LET HI = INT (S/256): LET LO = S - 256*HI 
1420 POKE 23606,L0: POKE 23607,HI: RETURN 


1500 REM List 

1509 REM List Last 16 moves of each side on screen. 

1518 LET T = N: IF T < 16 THEN LET T = 16 

1520 FOR I = T - 15 TO Tz PRINT AT I - T + 18,0; INK 7;NS(1,1) 
1530 PRINT AT I - T + 18,27; INK 7;N$(2,I): NEXT I 

1548 RETURN 


Figure 5.7 


Exercise 5.8 

Adapt the program in listing 5.7 to check for illegal moves and add facilities for 
castling and en passant captures. If you have a lot of time!! to spare then add 
routines to make the computer play against you (see Liffick, 1979). 


In the next chapter we shall consider how character graphics and our know- 
ledge of two-dimensional geometry may be combined to form data displays. 


Complete Programs 


I. Listing 5.1. Data required: A$. A$ should be any non-graphics mode 


6699 


character, try ‘*X”’ or “*x’’. 


VI. 


Vil. 
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Listing 5.2 (‘main program’ and ‘big pixels’). Data required: ROW and 
COL where 0 < ROW < 16 and O< COL < 24. Try (0, 0) and (1, 1). 
Listing 5.3. Data required: U$ and eight BINary numbers, each at most 
eight bits long to redefine the graphics character specified by U$. Try “A” 
and 111, 111000, 1010101, 101, 11111001, 1001, 1111, 10110; and “B”, 
“C” and “D’”’, each with permutations of these eight numbers. Then press 
keys “A” to “U” to display the equivalent graphics characters or press 
ENTER to restart program. 

Listing 5.4: no data required. Program III must be used to create graphics 
characters “‘A’’, “B’’, “C” and “D”. 

Listing 5.5: the CHARACTER GENERATOR. Read text for description 
and example of use. 

Listing 5.6: requires ‘masterset’ from tape, or the generation of your own 
character sets. To play MASTER MIND, type the number (“1” to “6’’) 
corresponding to the colour of peg you wish to enter. Pressing “7” removes 
last peg. When four pegs are in position, type “1” to enter guess. 

Listing 5.7: requires ‘chesspiece’ from tape. Type coordinates of start and 
destination squares of move. The coordinates of a square are given by a 
capital letter (“A” to “H’’) followed by a number (“‘1” to “8’’). Try ““E2” 
followed by “E4”. To ACCEPT MOVE type “‘Y”’, to reject the move 
type “N”’. 


6 Diagrams and Data Graphs 


More information is available to more people than ever before. Businessmen are 
being overwhelmed by massive documents containing reams of statistics on every 
subject from capital expenditure to market research. Sociologists bombard us 
with figures on child development and the increasing percentage of octogenarians 
in Bournemouth. Worst of all, computers are piling up printouts of dreary data 
covering every topic from astrology to zoology. Obviously something must be 
done! Computers have helped to create the problem and they can also help to 
solve it. The data must be presented in a more digestible manner: as pie-charts, 
histograms, scientific graphs or just plain diagrams. With the advent of desktop 
computers the increasing sales of programs that produce these displays has made 
this one of the major growth areas in computer graphics. In this chapter we shall 
see how such diagrams can be constructed with ease, given just a few tools to 

aid our draughtsmanship. 


Cursors 


Before us is a sheet of PAPER on which we shall place objects. We require some 
method for accurately controlling the position of these objects. This is usually 
achieved with a cursor, which may be externally controlled by a joystick or 
other analogue input devices. We, however, will use the keyboard to control 
movements. This may not be as convenient to use as a joystick, but it requires 
no extra expenditure on peripherals, which would achieve only the same effect 
anyway. The ‘cursor’ routine, listing 6.1, produces a pair of crosswires that are 
OVERIayed on the display using transparent INK (INK 8). These crosswires can 
specify the pixel at their intersection or the character block in which they cross. 
The cursor is moved in any one of eight directions by the keys around the “F” 
(see figure 6.1). If you have a joystick or similar peripheral attached to your 
computer, then alter the ‘cursor’ routine so that it receives information from 
that rather than the keyboard. 

Pressing “F” itself centres the cursor on the screen. When a key is held down 
the speed of movement gradually increases: a cursor that always moves just one 
pixel per key depression is tedious to use! To aid in positioning the cursor there 
is a Lattice that is switched on and off by pressing ““L”’. This is automatically 
removed, if it is on, when you press ENTER to enter a point. 
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KEYBOARD CONTROLS 


FOR ‘cursor’ 


MOVEMENT 


i  peaae 
E RR TF 
-D F G9 
eee 8 mee 
a 
Figure 6.1 


Listing 6.1 

5708 REM cursor 

5701 REM IN: PX,PY 

5702 REM OUT: PX,PY,ROW,COL 

5789 REM the next Line is only executed on the first call to cursor. 

571@ LET PX = 128: LET PY = 88: LET cursor = 5720: LET grid = 5980 

5719 REM start of main cursor routine. 

5720 INK 8: LET A = 1: LET FLAG = 1: OVER 1 

5729 REM wait for keyboard to be clear before looking for commands. 

5730 IF INKEYS © "" THEN GO TO 5730 

5748 PLOT PX,@: DRAW 0,175: PLOT @,PY : DRAW 255,0 

5750 LET AS = INKEYS: IF AS = "" THEN LET A = 1: GO TO 57508 

5760 IF CODE A$ > 64 AND CODE A$ < 96 THEN LET AS = CHRS (CODE AS + 32) 

5770 PLOT PX,@: DRAW 0,175: PLOT @,PY : DRAW 255,0 

5780 IF (AS = "e” OR AS = "dd" OR AS "c') AND PX >= A THEN LET PX = PX - A 
5798 IF (AS = “c" OR AS = "v" OR AS "b") AND PY >= A THEN LET PY = PY - A 
5802 IF (A$ = "e" OR AS = "r" OR AS "t') AND PX <= 175-A THEN LET PY = PY + 
5810 IF (AS = "t" OR AS = "g” OR AS "b') AND PX <= 255-A THEN LET PX = PX + 
5820 IF AS = "f" THEN LET PX = 128: LET PY = 88 

5830 IF A$ = "L" THEN GO SUB grid 

5840 IF AS <> CHRS 13 THEN LET A= A+ 1: GO TO 5740 

585@ LET COL = INT (PX/8): LET ROW = INT ((175-PY)/8) 

5868 IF FLAG = -1 THEN GO SUB grid 

5870 INK @: OVER @ 

5880 RETURN 

5900 REM grid 

5909 REM routine changes flag to remember whether grid is showing on screen. 


5918 


5920 
5938 


FOR J = @ TO 255 STEP 8: PLOT J,@: DRAW @,175: IF J < 176 
THEN PLOT 0,J: DRAW 255,08 


NEX 


TJ: 


RETURN 


Exercise 6.1 
Write a ‘main program’ that calls ‘cursor’ and then prints a coloured square on 


the screen at the specified block. It should also print out the ROW/COLumn 


LET FLAG = -FLAG: PLOT 255,0: DRAW 0,175: DRAW -255,0 


position of the block. Change the ‘cursor’ routine so that the standard cursor 


keys (“5”’, “6”, “7” and “8”) can be used to move our cursor in character block 
steps about the graphics area. 
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Attributes 


We can extend the idea from exercise 6.1 to produce routines that change the 
attributes of a given block or group of blocks without affecting their contents in 
the display file. Listing 6.2 shows two routines that do this for the PAPER and 
INK colours of a specified set of blocks. 


Listing 6.2 


4800 REM paper 
4012 GO SUB cursor: INPUT "WHAT COLOUR ";P: INPUT "No. OF BLOCKS (ROW*COL) " 


pRetentsc 
4020 FOR I = ROW TO ROW + R- 1: FOR J = COL TO COL +C- 1 
4032 PRINT AT I,J; PAPER P; INK 8; OVER 13" ": NEXT J: NEXT I 


4040 RETURN 


41002 REM ink 
4110 GO SUB cursor: INPUT "WHAT COLOUR ";P: INPUT "No. OF BLOCKS (ROW*COL) " 


FRM" SC 
4128 FOR I = ROW TO ROW + R- 1: FOR J = COL TO COL + C - 1 
4130 PRINT AT I,J; PAPER 8; INK P; OVER 1;" ": NEXT J: NEXT I 


4148 RETURN 


Exercise 6.2 

Write a ‘main program’ that LISTs part of itself and then allows you to highlight 
parts of the listing using different INK or PAPER colours. Write routines to be 
placed at lines 4050 and 4150, which alter the FLASH or BRIGHT attributes of 
blocks. (Why will this mean adding FLASH 8 and BRIGHT 8 to the ‘paper’ and 
‘ink’ routines?). Combine all four routines into one named ‘attribute’. 


Points and Lines 


Having achieved simple interactive control over the appearance of our diagram, 
we must now fill in the details of the picture. This requires routines for PLOT- 
ting pixel points on the screen and for DRAWing lines. We could use program 


Listing 6.3 


4202 REM point 

421@ INPUT "PRESS ENTER FOR CURSOR"; LINE AS 

4228 GO SUB cursor: INPUT "OVER ( 1 OR @ ) "30: INPUT "COLOUR ";C 
4232 PLOT INK C; OVER 0;PX,PY 

424@ RETURN 


4300 REM Line 

4310 INPUT "PRESS ENTER FOR CURSOR"; LINE AS 

4328 GO SUB cursor: LET SX = PX: LET SY = PY 

4330 INPUT "PRESS ENTER FOR CURSOR"; LINE A$ 

4348 GO SUB cursor: INPUT "OVER ( 1 OR @ ) "30: INPUT "COLOUR ";C 
435@ PLOT PAPER 8; INK C; OVER 0;SX,SY 

4360 DRAW PAPER 8; INK C; OVER O;PX - SX,PY = SY 

4370 RETURN 
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listing 1.8, but it would be boring to go over every pixel in a line. Instead we use 
two routines ‘point’, which PLOTs individual pixels, and ‘line’, in which we 
simply specify the two end points of a line before joining them up. These two 
routines are shown in listing 6.3. 


Exercise 6.3 

Write a ‘main program’ that allows you to use ‘point’ and ‘line’ to sketch a 
picture of your Spectrum. Incorporate ‘circle1’ or ‘circle2’ from listing 2.10 in a 
‘circle’ routine; where necessary, parameters, the centre and radius, are added 
using the ‘cursor’. Adapt your program from exercise 1.3 for use as a routine to 
draw an n-sided polygon using the ‘cursor’ to enter the points. Add an extra 
option to the ‘line’ routine to allow DRAWing of curved lines and then construct 
a diagram similar to figure 1.10a (it will be easier to use eight points around the 
edge rather than twelve). 

If you have a graphics pad then you can copy rough sketches from the pad 
into the machine using an adjusted version of ‘line’ and ‘point’. You should then 
write programs to tidy up these pictures; that is, straighten lines and smooth out 
curves. 


Save and Load 


Having spent some time and effort drawing and colouring a pretty picture, we 
might wish to SAVE it for future reference. Another essential requirement is to 
be able to LOAD a picture drawn by another program, and then alter it. The 
two routines ‘save’ and ‘load’ that make this possible are shown in listing 6.4. 


Listing 6.4 


45@D REM save 

4518 INPUT "NAME OF PICTURE ? ";NS: IF NS = “” THEN RETURN 
4520 SAVE (NS) SCREENS 

4530 RETURN 


46D REM Load 

4610) INPUT "NAME OF PICTURE ? ";N$: IF NS = "" THEN RETURN 
4620 LOAD (NS) SCREENS 

4630 RETURN 


Exercise 6.4 

Run the program in listing 3.1 (or LOAD figure 3.1 if you have it stored) and 
then change the display to green INK on black PAPER. Furthermore, there are 
similar statements in both routines ‘save’ and ‘load’. To save space, combine 
‘save’ and ‘load’ into a single routine. 


Diagrams and Data Graphs 107 


Labels 


Listings 6.1 to 6.4 form the basis of our diagram construction package, but as 
yet we have not put any labels on the diagrams. This is achieved with the ‘label’ 
routine, listing 6.5. Note that in this routine we make references to routines not 
yet written. This is a typical situation given the structured modular approach 
adopted throughout this book. In practice this means that whenever we come up 
against a problem that is too large to tackle immediately, we simply give it a 
name and deal with it later. In ‘label’ we decide that character strings drawn 
using symbols from set 5 will be printed vertically, For reasons explained later, 
we also define a special prefix (7:) that indicates that the string of characters for 
a label is to be printed in narrow characters using a special routine ‘thin’. We also 
assume that there is a routine named ‘set’ that enables us to switch between 
character sets. 


Listing 6.5 


5402 REM Label 

5418 GO SUB cursor: INPUT "SET:STRING ";A$: IF AS = "" THEN GO TO 5418 
5428 INPUT "COLOUR ";C$: INK VALC"D" + C$) 

5430 IF ASC TO 2) = "1:" TKEN PRINT AT ROW,COL;AS(3 TO ): GO TO 5510 
5439 REM check for special set numbers, set 5 is printed vertically. 

5440 IF ASC TO 2) <> "S:" THEN GO TO 5470 

5450 LET S = 5: GO SUB set: LET AS = AS(3 TO ) 

5460 FOR I = 1 TO LEN AS: PRINT AT ROW-1I+1,COL;AS(1): NEXT I: GO TO 5512 
5469 REM set 7 specifies that the thin routine should be used for printing. 
5478 IF ASC TO 2) <> "7:" THEN GO TO 5498 

5488 LET AS = AS(3 TO ): GO SUB thin: GO TO 5510 

5489 REM check valid number is given. , 

5490 LET S = VAL AS(1): IF S > 6 OR S < 1 OR AS(2) <> ":" THEN GO TO 5512 
5499 REM print out string in appropriate set. 

550) GO SUB set: PRINT AT ROW,COL;A$(3 TO ) 

5518 LET S$ = 1: GO SUB set 

5528 INK @: RETURN 


Data Graphs 


In an attempt to tidy up some of the loose ends, we introduce a general purpose 
‘main program’ and a ‘query’ routine in listing 6.6. Inevitably this creates as 
many new loose ends as it ties up, but it should help to give us an overall view of 
the tasks left unsolved. We introduce identifiers (lower case) for routines, to be 
written later that, among other things, will allow us to draw special types of 
diagrams; for example, ‘histo’grams, ‘pie’-charts and ‘graph’s. 

The section of listing 6.6 before the ‘main program’ is a cleaned-up version of 
those parts of the CHARACTER GENERATOR from chapter 5 necessary for 
using alternate character sets. 

A program containing all the routines from listings 6.1 to 6.7 was used to draw 
most of the diagrams in this book that were not directly produced by example 
programs. It was used also for adding labels to many of the figures that were 
produced by programs; for example, figure 4.1. 
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Listing 6.6 


8 REM for 16K machines make changes as given in Listing 5.5. 
9 REM set up to use alternate character sets. 
10 CLEAR 62294 
2@ INK @: PAPER 7: CLS: DIM S(6) 
30 FOR I = 1 TO 6: READ SCI): NEXT I: DATA 15360,62039,62807 ,63575 
764343 ,64848 
4@ LET set = 5@: LET S = 1: GO SUB set: GO TO 200 
5@ REM set/change to set S$ 
60 LET HI = INT (S(S)/256): LET LO = SCS) - HI*256 
70 POKE 23606,L0: POKE 23687,HI: RETURN 
8 REM charload 
9@ INPUT "WHAT FILE NAME ? ";N$: IF NS = "" THEN RETURN 
100 INPUT "LOAD WHICH SET ? "zS: IF (S<2 OR S>6) AND S<>11 THEN GO TO 88 
112 INPUT "Start tape, then press enter."; LINE X$ 
120 IF S = 11 THEN LOAD NS CODE (SC(5) + 256),768 + 168: RETURN 
130 IF S = 6 THEN LOAD NS CODE (SCS) + 512),168: RETURN 
148 LOAD NS CODE (SCS) + 256),768: RETURN 


200 REM main program 
218 LET restart = 280: LET query = 508 
22@ LET histo = 1908: LET pie = 2000: LET graph = 3000 
230 LET paper = 4000: LET ink = 418M: LET point = 4200: LET Line = 4320 
: LET save = 45@@: LET Load = 46@@: LET number = 47008 
248 LET charload = 8@: LET create = 5002: LET thin = 5200 
250 LET Label = 5400: LET cursor = 57008 
260 LET I$ = "DEFINE CHARACTERS 7? ": GO SUB query: IF YES THEN GO SUB create 
270 CLS: LET I$ = "LOAD CHARACTERS ? ": GO SUB query: IF YES THEN GO SUB charload 


ln 


: GO TO 270 
280 LET I$ = "LOAD PICTURE ? ": GO SUB query: IF YES THEN GO SUB load 
298 LET I$ = "DRAW DIAGRAM ? ": GO SUB query: IF NOT YES THEN GO TO 360 
300 LET I$ = "HISTOGRAM, PIE-CHART OR GRAPH ? ": GO SUB query 


312 LET diagram = @: IF AS = "h” THEN LET diagram = histo 

320 IF AS = "p" THEN LET diagram = pie 

330 IF AS = "g" THEN LET diagram graph 

348 IF diagram = @ THEN GO TO 288 

35@ GO SUB diagram 

360 LET I$ = "LABEL PICTURE ? ": GO SUB query: IF YES THEN GO SUB Label 


: GO TO 368 
370 LET IS = "COLOUR PAPER ? “: GO SUB query: IF YES THEN GO SUB paper 
: GO TO 3728 
380 LET I$ = "COLOUR INK ? ": GO SUB query: IF YES THEN GO SUB ink 
: GO TO 380 
390 LET I$ = "DRAW POINT ? “: GO SUB query: IF YES THEN GO SUB point 
: GO To 398 
400 LET I$ = "DRAW LINE ? ": GO SUB query: IF YES THEN GO SUB Line 
: GO TO 400 
412 LET I$ = "END PICTURE ? ": GO SUB query: IF NOT YES THEN GO TO restart 
420 LET I$ = "SAVE PICTURE ? ": GO SUB query: IF YES THEN GO SUB save 
43@ STOP 


580 REM query 

5@1 REM IN : I$ 

5@2 REM OUT : A$,YES 

510 LET YES = @ 

520 INPUT (1$); LINE AS: IF AS = "" THEN RETURN 

530 LET AS = AS(1): IF CODE AS < 96 THEN LET AS = CHR (CODE AS + 32) 
540 LET YES = (A$ = "y") 

558 RETURN 
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Special Characters 


To complete our preparations for the ‘label’ routine, we need to create a set of 
ROTATED characters, which is placed in set 5 for use in writing vertical labels. 
This is done in the routine ‘create’ (listing 6.7), which uses some of the techni- 
ques from the CHARACTER GENERATOR to copy a rotated version of set 1 


into set 5. 

Listing 6.7 

5006 REM create/characters 

5009 REM create characters for histogram routine. 

5012 DIM P(&): DIM D(3): LET DC1) = 15: LET D(2) = 255: LET D(3) = 240 

5020 FOR 1 = @ 70 6: FOR J = 8 T07 

5@30 LET P(1) = USR "A" + 148 + J: LET P(2) = USR "H" + 1*8 + J 

5048 LET P(3) = USR "O" + 1%8 + J 

5@50 FOR K = 1 TO 3: POKE PC(K),@: NEXT K 

5060 IF J > I THEN FOR K = 1 TO 3: POKE P(K),D(K): NEXT K 

5070 NEXT J: NEXT I 

5078 REM copy set 1 to set 5 with a rotation to get sideways characters. 

5079 REM for 16K machines @ = 31831. 

5082 DIM 8$(8,8): LET T = 256: FOR I = 1 TO 8: LET T = T/2: LET P(I) = T 
: NEXT I: LET P = 15616: LET @ = 64599 

5890 FOR I = 32 TO 127: FOR J = 1 TO 8: LET BS(J) = "QOODOBOHL": NEXT J 

5100 FOR J = 1 TO 8: LET T = PEEK P: FOR K = 1 TO 8 

5110 IF T >= PCK) THEN LET T = T — PKK): LET BS(9-K,J) = "1" 

5120 NEXT K: LET P = P + 1: NEXT J 

5130 FOR J = 1 TO 8: POKE Q,VAL("BIN " + BS(J)): LET Q = @ + 1: NEXT J 

5148 PRINT AT 10,1@;"ROTATING ";CHRS I 

515@ NEXT I: CLS 

5168 RETURN 

5202 REM thin 

5201 REM IN : ROW,COL,AS 

5209 REM print every cther character in Left half of blocks. 

5218 LET S = 4: GO SUB set: OVER 1: LET TC = COL 

5228 FOR I = 1 TO LEN AS STEP 2: PRINT AT ROW,TC;AS(1): LET TC = TC + 1: NEXT I 

5229 REM print other characters in between in right half of blocks. 

5230 LET S = 3: GO SUB set: LET TC = COL 

5240 FOR I = 2 TO LEN AS STEP 2: PRINT AT ROW,TC;AS(1): LET TC = TC + 1: NEXT I 

5250 LET S = 1: GO SUB set: OVER @ 

5262 RETURN 


Before generating the rotated characters, the ‘create’ routine initially redefines 
the user-defined graphics set as three sets of seven characters, see figure 6.2, that 
allow either the left or right halves, or all of a character block, to be INKed in 
from the bottom up. These characters may be used, by OVERprinting, to obtain 
horizontal bars of varying thicknesses on the screen; but they are primarily for 
use in the ‘histo’gram routines that follow. 

For the remainder of this chapter we shall discuss some common types of 
data display. The vast number of variations on each of the major themes of 
graphical display make it impractical to discuss all possibilities. We shall, there- 


fore, 


consider in detail just a few examples from each of the three main types of 


display: histograms, pie-charts and graphs. From these simple examples it should 
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be possible to construct variations on these routines to display data in any man- 
ner required. Again note the changes for the 16K machine given in appendix A. 


Histograms 


Histograms (or bar-charts) can be constructed by our programs to any height in 
pixels and in any colour, provided both the width of the bars and the separation 
between them are at least half a character block. Since this is quite normal for 
histograms anyway, we can formulate a method for calculating the spacing and 
width of bars once we know how many there are. The first part of the ‘histo’ 
routine (listing 6.8) draws the axes, labels the vertical and then asks how many 
bars are required. The width of the bars (X), and the size of the GAPs between 
the bars, are both calculated (in multiples of half blocks) by a method that 
ensures that 1/2 <GAP < X. On receiving each data item, the routine uses the 
full and half-width characters together with the user-defined characters (from 
‘create’) to build up strings representing the scale height of the bar. These strings 
are used to fill in any full or half-width character blocks assigned to that bar by 
prefixing them with ‘5:’ and using ‘bar’ to print them vertically. Note that the 
axes lie in the character block just outside the area containing the bar-chart to 
ensure their independence from any colour changes made inside this area. 

Figure 6.3, a diagram presenting the annual rainfall in Egham, was construct- 
ed using ‘histo’ (/typel) from listing 6.8 and then ‘label’ed. 


Exercise 6.5 

As variations on the standard ‘histo’ routine we can write replacement routines 
that can be MERGEd as required. Write a routine that calculates the position for 
pairs of bars, where the bars within a pair are separated by half a block, but pairs 
are separated from neighbouring pairs by at least one block. Use this to construct 
diagrams similar to figure 6.4. 

An example of a replacement ‘histo’ routine is given in listing 6.9. In this 
version of ‘histo’ (/type2) the calculation of the width of the bars is altered to 
provide whole character block values for X and GAP. Two data values are 
requested for each bar, specifying the MAXimum and MINimum height range of 
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Listing 6.8 


1008 
1029 
1010 
1019 
1020 
1030 
1040 
1050 
1259 
1060 
1078 
1080 
1098 


1100 
1110 
1120 
1138 
1146 
1149 
1150 
1160 
1176 
1179 
1180 
1198 


1199 
1200 
1209 
1210 
1220 
1229 
1230 


1239 
1246 
1249 
1250 


1259 
1260 
1270 
1279 
1280 


1289 
1290 
1299 
1300 
13108 


1320 
1321 
1329 
1330 
1340 


REM histo/typet 
REM set pointer to subroutine which prints bars. 
LET bar = 1220 
REM find scale and draw axes. 
INPUT "RANGE OF VERTICAL ";YB;" TO "3;YT 
IF YB >= YT THEN GO TO 1020 
LET YSCALE = 128/(YT - YB) 
PLOT 47,152: DRAW 0,-129: DRAW 201, 
REM Label vertical axis. 
LET YDIF = CYT - YB)/4: LET TICK = YB 
FOR I = 1 TO 5: LET TK = INT (TICK + @.5) 
LET Y = 32*I - 8: PLOT 47,Y: DRAW -3,@: LET ROW = INT ((176 - Y)/8)-1 
LET AS = STRS TK: IF LEN AS > 3 THEN LET AS = ASC TO 3) 
IF TK > 999 OR TK < -99 THEN LET AS eek" 
LET COL = 1 : IF TK >= @ THEN LET COL cOL +4 
IF ABS TK < 18 THEN LET COL = COL + 1 
IF ABS TK < 10M THEN LET COL = COL + 1 
PRINT AT ROW,COL;A$: LET TICK = TICK + YDIF 
NEXT I 
REM find number of bars required and calculate how they can fit in. 
INPUT "No. OF BARS '";NB 
LET X = INT (25/NB + @.5)/2: LET GAP = INT (50/NB - 2*X)/2 
LET GP = (25 - NB*X - (NB - 1)*GAP)*2: LET GP = INT (CGP + 1)/2)/2 
REM position column pointer at first bar then repeat loop for each bar. 
LET COL = 6 + GP: FOR I = 1 TO NB 
LET I$ = "DATA FOR BAR " + STRS I + “ ": INPUT (1$);D;" COLOUR ";C 
: INK C: LET W = X 
REM values below the horizontal axis are treated as single pixel height. 
IF D <= YB THEN LET D = @: LET H = 1: GO TO 1220 
REM calculate the number of whole blocks of height for bar. 
LET D = D - YB: LET H = INT (D*YSCALE + 0.5) 
LET IH = INT (H/8): LET LS = "": LET MS = '"": LET RS =" 
REM construct strings to height for Left, middle and right of bars. 
FOR J = 1 TO IH: LET LS = LS + CHRS 133: LET MS = MS + CHRS 143 
: LET RS = RS + CHRS 138 
REM find number of pixels of height for special character at top. 
NEXT J: LET RH = H - IH*8: IF RH = @ THEN GO TO 1260 
REM add special characters to tops of bars. 
LET LS = L$ + CHRS (151 - RH): LET MS = M$ + CHRS (158 — RH) 
: LET R$ = RS + CHRS (165 -RH) 
REM if column pointer is on a half-block print right biased part of bar. 
IF COL = INT (COL) THEN GO TO 1280 
LET AS = L$: GO SUB bar: LET W= W- @.5: LET COL = COL + @.5 
REM print as many whole block bars as needed. 
IF W >= 1 THEN LET AS = M$: GO SUB bar: LET W = W- 1 
: LET COL = COL + 1: GO TO 1280 
REM see if Left biased half-width bar is needed. 
IF W > @.1 THEN LET AS = R$: GO SUB bar: LET COL = COL + 0.5 
REM move column pointer to next bar and re-do Loop. 
LET COL = COL + GAP: NEXT I 
INK ®: RETURN 


REM bar 
REM IN : COL,AS 
REM print A$ vertically from row 19 upwards in COLumn,. 


FOR K = 1 TO LEN AS: PRINT AT 19 — K, INT COL;AS(K): NEXT K 
RETURN 
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the bar. By simply OVERprinting the bars, charts like figure 6.5, of the monthly 
temperature variation in Egham, can be produced. In order to understand this 
fully, as well as other programs in the book, it is a good idea to scatter PRINT 
statements throughout the listings, so you can follow the logic of the algorithms 
as they are executed. A very nice feature in BASIC is that you can add extra 


Listing 6.9 


1000 REM histc/type2 
1069 REM set pointer to subroutine which prints bars. 
1010 LET bar = 1220: DIM 0$(2,3): LET O$(1) = "MAX": LET 0$(2) = "MIN" 
1219 REM find scale and draw axes. 
102@ INPUT "RANGE OF VERTICAL ";YB;" TO ";YT 
1030 IF YB >= YT THEN GO TO 1#20 
104@ LET YSCALE = 128/(YT - YB) 
1058 PLOT 47,152: DRAW @,-129: DRAW 201,08 
1059 REM Label vertical axis. 
1060 LET YDIF = (YT - YB)/4: LET TICK = YB 
1070 FOR I = 1 TO 5: LET TK = INT (TICK + @.5) 
1082 LET Y = 32*I - 8: PLOT 47,Y: DRAW -3,@: LET ROW = INT ((176 - Y)/8)-1 
1090 LET AS = STRS TK: IF LEN AS > 3 THEN LET AS = ASC TO 3) 
IF TK > 999 OR TK < -99 THEN LET AS "ee 
1106 LET COL = 1 : IF TK >= @ THEN LET COL COL. $9al 
1118 IF ABS TK < 12 THEN LET COL = COL + 1 
1120 IF ABS TK < 188 THEN LET COL = COL + 1 
1138 PRINT AT ROW,COL;AS: LET TICK = TICK + YDIF 
1148 NEXT I 
1149 REM find number of bars required and calculate an integer width for them. 
1150 INPUT "No. OF BARS "ZNB: OVER 1 
116@ LET GAP = INT (13/NB): LET X = INT ((€26 - GAP*NB)/NB) 
117@ LET GP = (25 - NB*X - (NB - 1)*GAP): LET GP = INT ((GP + 1)/2) 
1179 REM positicn column pointer at first bar then repeat Loop for each bar. 
11&@ LET COL = 6 + GP: FOR I = 1 TO NB 
INPUT ("COLOUR FOR BAR " + STRGS I+ ": ")7C: INK C 
11&9 REM Loop to irput maximum and minimum values for bar. 
1190 FOR G = 7 TO 2: LET I$ = "DATA " + 0$(0) + " FOR BAR "' + STRS T+" " 
INPUT (I1$);D: LET W = X 

120f IF D <= YB THEN LET D = @: LET H = 1: GO TO 1220 
1209 REM calculate the number of whole blocks cof height for bar. 
1210 LET BD = D - YB: LET H = INT (D*YSCALE + @.5) 
1220 LET IH = INT (H/8): LET MS = "'" 
1229 REM construct string to height for bar. 
1230 FOR J = 1 TO IH: LET M$ = ME + CHRS 143 
1239 REM acd special character for remainirg height. 
124@ NEXT J: LET RH = H - IH*&: IF RH = @ THEN GO TO 1268 
1250 LET MS = ME + CHRS (158 - RH) 
1259 REM start at same column for both bars in pair. 
1260 IF 0 = 7 THEN LET OCGL = COL 
1270 IF 0 = 2 THEN LET COL = CCOL 
1279 REM cutput required number of whole blobk width bars. 
1280 IF W >= 1 THEN LET AS = MS: GO SUB bar: LET W=W- 1 

: LET COL = COL + 1: GO TC 1280 
1290 LET COL = COL + GAP: NEXT O: NEXT I 
1300 INK @: OVER @: RETURN 


122@ REM tar 

1321 REM IN : COL,AS 

1329 REM print AS vertically from row 19 upwards in COLumn. 

133@ FOR K = 1 TO LEN A$: PRINT AT 19 - K, INT COL;AS(K): NEXT K 
134@ RETURN 
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STOPs to a program, interrogate the variable values, and then CONTinue, with- 
out affecting the status of the program. This is a very useful tool for debugging 
a program, as well as an aid to understanding a listing. 
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Exercise 6.6 

Try using a different colour PAPER when OVERprinting the bars to produce 
two-coloured bars. Be careful when using data values giving scale heights with 
less than eight pixels difference! 


Problems will occur when using two different colours for one bar (exercise 
6.6). If the MAXimum and MINimum values both fall in the same character 
block, then three colours, these two plus the background, will be required with- 
in one block. We may check whether problems will occur by comparing the 
number of character blocks in the string produced for the MINimum data with 
that for the MAXimum data. If they are of equal length then the simplest way 
of avoiding trouble is to truncate the MINimum string by removing the last 
character. This will remove any problems with the colours on the display but 
will ve slightly inaccurate. This whole problem will be avoided if we make the 
colour of the lower part of the bar the same as the background colour, thus 
ensuring that the bar is accurately drawn with only two different colours in each 
block. 

There are many, many more variations possible; for example, drawing bars 
above and below a central line in order to display fluctuations in currency 
exchange rates. The fundamental ideas we have introduced should enable you to 
produce any histogram to your own specification. 
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Pie-Charts 


The pie-chart is a favourite with economists and biologists who delight in telling 
us how big each slice of our capital expenditure cake is, or alternatively which 
bacteria are eating it. The usual requirements of a pie-chart program are that it 
should draw pies of variable radii, it must be possible to pull out slices of the pie 
from the centre, and provision for filling in or cross-hatching these slices must be 
made available. The ‘pie’-chart routine given in listing 6.10 achieves the first two 


Listing 6.10 


2002 REM pie/chart 
2009 REM set pointers to routines. 
2010 LET hatch = 2300: LET in = 2800 
2019 REM all segments are input and totalled to calculate angular scale. 
2022 INPUT "No. OF SEGMENTS ";NB: INPUT "COLOUR ";C$: LET C = VAL ("B" + CS) 
: LET TOT = 8 
2030 DIM DC(NB): FOR I = 1 TO NB: INPUT ("DATA " + STRS I + "3: ")ZDCI) 
: LET TOT = TOT + DCI): NEXT I 
2039 REM use cursor to specify centre of pie. 
2040 INPUT "PRESS ENTER FOR CENTERING PIE";LINE Y$ 
2058 GO SUB cursor: LET XC = PX: LET YC = PY 
2060 INPUT "RADIUS (IN PIXELS) ";RAD 
2070 LET ASCALE = 2*PI/TOT: LET A1 = PI/2 
2079 REM any wedge may be pulled out by moving the cursor away from the centre. 
2080 FOR I = 1 TO NB 
2098 INPUT "PRESS ENTER FOR CENTERING WEDGE";LINE Y$ 
2100 LET PX = XC: LET PY = YC: GO SUB cursor: LET ANG = ASCALE*D(1I) 
: LET A2 = A1 —- ANG 
2109 REM if wedge is to move out calculate displacement along it's bisector. 
2110 IF PX = XC AND PY =YC THEN GO TO 2140 
2120 LET A3 = A1 - ANG/2: LET DIST = SQR (CPX -— XC)*(PX - XC) + 
(PY = YC)*CPY ~— YC)) 
2130 LET PX = INT (XC + DIST*COS AZ + @.5): LET PY = INT (YC + DIST*SIN A3 
+ 0.5) 
2139 REM enquire whether hatching is required and what type. 
2148 INPUT "HATCH (x,y,b,n) ";H$: IF CODE H$ < 96 
THEN LET HS = CHRS (CODE HS + 32) 
2149 REM if hatching is wanted input gap size between Lines and offset. 
2150 IF HS <> "nm" THEN INPUT "JUMP ";JUMP,"REM ";REM 
2159 REM draw segment of pie. 
2168 INK C: PLOT PX,PY: LET X1 = INT CRAD*COS A1 + 0.5) 
: LET Y1 = INT CRAD*SIN A1 + @.5): DRAW X1,Y1 
2178 LET A2S = A2: LET ASTO = ANG: LET XA = PX + X1: LET YA = PY + Y1 
2180 LET XB = INT CRAD*COS A2 + @.5): LET YB = INT CRAD*SIN A2 + @.5) 
2199 FOR T = Al TO A2 STEP -3/RAD 
2200 LET X2 = INT (RAD*COS T + @.5): LET Y2 = INT CRAD*SIN T + 0.5) 
: DRAW X2 - X1,Y¥2 - Y1: LET X1 = X2: LET Y1 = Y2 
2212 NEXT T: DRAW XB ~ X2, YB — Y2: LET X2 = XB: LET Y2 = YB 
2220 DRAW -XB,-YB: IF HS = "n" THEN GO TO 2250 
2228 REM call hatching routine if needed. 
2229 REM if angle is greater than half circle then do hatching in two parts. 
2232 IF ASTO > PL THEN LET A2 = Al - PI: LET XB = 2*PX - XA: LET YB = 2*PY -YA 
: GO SUB hatch: LET XA = XB: LET YA = YB: LET A1 = A2: LET A2 = A2S 
2240 LET XB = PX + X2: LET YB = PY + Y2: GO SUB hatch 
2249 REM Loop back for next segment. 
2250 LET At = A2: NEXT I: RETURN 
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requirements by using the ‘cursor’ to centre the chart and INPUTting the 
RADIUS in pixels. The individual data items are then INPUT and TOTalled, 
and this total is used to establish an angular scale for the ‘pie’-chart. Each slice is 
centred with the ‘cursor’, with any displacement of the ‘cursor’ from the centre 
of the ‘pie’ being treated as a distance along the bisector of the slice and not as 
an absolute position. With each new section the ‘cursor’ reappears at the original 
centre of the ‘pie’. Figure 6.6 was generated using this routine. 
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Figure 6.6 


Hatching 


Hatching the area of a pie-slice involves the intersection of a line with the 
boundaries of the slice. To make the calculations simpler we shall hatch using 
lines only in the horizontal direction or only in the verical direction, or both, 
Furthermore we hatch only ‘pie’s that subtend angles less than or equal to 7 
radians (180 degrees) at the centre. For obtuse angles the ‘pie’ is treated as two 
pieces, the first subtending m radians at the centre. The ‘pie’ routine enquires 


whether the hatching is to be horizontal (answer “x’’), vertical (answer “y”’), 
both ways (answer “‘b’’) or neither (answer “‘n’’). 

The pie sections we are considering are each bounded by two line segments 
and a circular arc. We must find which part of a hatching line (if any) lies inside 


this segment. Because the ‘pie’ does not subtend an angle greater than 7 radians 
at its centre there are only four possibilities 


(1) aline may miss the pie altogether 
(2) it may intersect the arc at two points 
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(3) it may intersect the arc and one of the line segments 
(4) it may intersect both line segments 


The special cases where the line coincidently cuts the arc and a line segment 
at the same point may be included in one of the above four possibilities. The 
explanation of the hatching algorithm is given with reference to horizontal 
hatching; the vertical follows in an equivalent manner. We first find the MAXi- 
mum and MINimum y-values of points within the ‘pie’ section. Then we consider 
all horizontal hatching lines with equations of the form Y = k+JUMP + REM 
between these limits (0 < REM < JUMP — 1). For each hatching line we calcu- 
late the two points of intersection with the extended line segments and then 
check whether their MU values lie between 0 and 1; that is, whether the inter- 
section is between the centre of the circle and the arc. Next we find the two 
points of intersection of the hatching line with the complete circle containing 
the arc, and then check whether they lie on the arc. From these we can find the 
two points of intersection of the pie section and the hatching line, and these are 
then joined. This whole process is programmed in listing 6.11 and an example of 
its use is given in figure 6.7. Note that to fill in a slice completely we simply set 
JUMP equal to 1. 


Listing 6.11 


2300 REM hatch 

2309 REM if cross hatching is required then run hatch routine twice. 

2310 IF HS ="b" THEN LET HS = "x": GO SUB 2320: LET HS = "y" 
: GO SUB 2320: LET H$ ="b" : RETURN 

2319 REM set hatching variables to control direction of Lines. ‘ 

2320 IF HS = "y" THEN LET PZ = PX: LET PT = PY: LET ZA = XA: LET TA = YA 
: LET ZB = XB: LET TB = YB 

2330 IF HS = "x" THEN LET PZ = PY: LET PT = PX: LET ZA = YA: LET TA = XA 
: LET ZB = YB: LET TB = XB 

2348 DIM Z(3) 

2349 REM find max. and min. coordinates for Lines which pass through segment. 

235@ LET T = PI/2: LET MAX = @: LET MIN = @ 

2360 LET VAL = SIN Al: IF HS = "x" THEN LET VAL = COS Al 

2370 IF MAX < VAL THEN LET MAX = VAL 

2380 IF MIN > VAL THEN LET MIN = VAL 

2390 IF T > A? THEN LET T = T - PI/2: GO TO 2390 

2400 IF T < A2 THEN GO TO 2458 

2410 LET, VAL = SIN T: IF HS = "x" THEN LET VAL = COS T 

2420 IF MAX < VAL THEN LET MAX = VAL 

2430 IF MIN > VAL THEN LET MIN = VAL 

2448 LET T = T - PI/2: GO TO 2400 

245@ LET VAL = SIN A2: IF HS = "x" THEN LET VAL = COS A2 

2460 IF MAX < VAL THEN LET MAX = VAL 

2470 IF MIN > VAL THEN LET MIN = VAL 

2488 LET NEWMIN = INT CINT CRAD*MIN + 1)/JUMP)*JUMP + REM 

2489 REM for Lines which crosses segment find intersections with radii and arc. 

2498 FOR E = NEWMIN TO MAX*RAD STEP JUMP 

2499 REM store intersection coordinate information in array Z(1:4). 

2580 LET Ic = @ 

2510 LET DENOM = TA - PT: IF DENOM = @ THEN GO TO 2548 

2520 LET MU = E/DENOM: IF MU < @ OR MU > 1 THEN GO TO 2540 

2530 LET IC = IC + 1: LET ZC€IC) = PZ + MU*(ZA —- PZ) 

2540 LET DENOM = TB - PT: IF DENOM = @ THEN GO TO 2580 

2550 LET MU = E/DENOM: IF MU < @ OR MU > 1 THEN GO TO 2588 
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2568 LET IC = IC + Ts LET ZCIC) = Pz + MU*(ZB = Pz) 

2569 REM if more than two points of intersection found, delete duplicates. 
2570 IF IC = 2 AND Z(1) = Z¢€2) THEN LET IC = 1 

2580 IF IC <> 2 THEN GO TO 2612 

2589 draw hatch Lines. 

2590 IF HS = "y™ THEN PLOT Z(1),E + PT: DRAW Z(2) - 2(1),0: GO TO 2710 
2602 IF HS = "x" THEN PLOT E + PT,Z(1): DRAW @,2(2) - Z(1): GO TO 2710 
2610 LET DISC RAD*RAD - EXE: IF DISC < @ THEN GO TO 2710 

2620 LET DISC INT (SQR DISC + @.5) 

2630 LET ZZ = PZ + DISC: LET AZ = DISC: GO SUB in: IF OUT THEN GO TO 2658 


not x 


2640 LET Ic = IC + 1: LET ZCIC) = ZZ 
2658 LET ZZ = PZ ~ DISC: LET AZ = -DISC: GO SUB in: IF OUT THEN GO 70 2670 
2668 LET IC = IC + 1: LET Z(IC) = ZZ 


267@ IF IC < 2 THEN GO TO 2718 

2680 IF IC = 2 THEN GO TO 2598 

2690 IF Z(1) = 2(2) THEN LET Z(2) = 2(3) 

2782 GO TO 2598 

2712 NEXT E 

2720 RETURN 

2800 REM in 

2888 REM calculate angle from centre to point of intersection. 

2809 REM if angle Lies between angles of ends of segment then point 
of intersection is on the arc of the segment. 

2810 LET BZ = AZ: LET EZ = E 

2820 IF HS = "x" THEN LET BZ = E: LET EZ = AZ 

2830 IF BZ = @ THEN LET PHI = -PI/2: IF EZ > ® THEN LET PHI = -PHI 

2842 IF BZ = @ THEN GO TO 2860 

2850 LET PHI = ATN (EZ/BZ): IF BZ < @ THEN LET PHI = PHI - PI 

2859 REM set flag to indicate whether or not point is valid. 

2860 LET OUT = (PHI >= A1) OR (PHI <= A2) 

2870 RETURN 
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Graphs 


As our final example of graphical data presentation we must consider scientific 
graphs of functions and graphs of discrete points. Such diagrams require co- 
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ordinate axes that need not be fixed, and can cover a bewildering variety of 
ranges for their scales. The method we use to decide on the placing of a particu- 
lar axis is fairly standard: if zero should lie in the range of the graph then the axis 
passes through that point, otherwise it lies on the edge of the graphics area, 
closest to zero. Five TICKs are then placed along each axis and the scale value 
at that point is written close to each TICK. The need for accuracy in scientific 
graphs makes us wish to include as many characters as possible. As things stand 
we can have only 32 characters across the screen and 22 up it, so this is where 
‘thin’ comes in. We used the CHARACTER GENERATOR to create two sets of 
thin characters that are half the width of normal characters: one set having 
characters in the left half of the character block and the other set being in the 
right half. When a string is to be printed as thin characters, the ‘thin’ routine 
prints every other character of the string in the left-biased set and then OVER- 
prints this, with the remaining characters in the right-biased set. This places two 
thin characters in each block, giving us 64 print positions across the screen. The 
numbers to be printed as ‘thin’ ‘label’s still need to be converted into strings and 
made consistent in length and/or decimal accuracy. This is achieved by the 
routine ‘number’, which follows in listing 6.12. Note that the routine ‘thin’ has 
already been used in the ‘label’ling of figure 6.6. 


Listing 6.12 


3206 REM graph 

3009 REM symbol routine is used to mark data points on discrete graphs. 

3210 LET symbol = 3508 

3219 REM calculate scales and draw axes. 

30c@ INPUT "X GOES FROM ";XB;" TO "s;XT: IF XT <= XB THEN GO TO 3020 

3030 INPUT "Y GOES FROM ";YB;" TO ";YT: IF YT <= YB THEN GO TO 3232 

3048 LET XSCALE = 192/(XT - XB): LET YSCALE = 128/(YT - YB) 

2050 LET XO = INT (-XB*XSCALE + 32.5): LET YO = INT (-YB*YSCALE + 24.5) 

3059 REM if zerc is not in range of Graph move axis to appropriate edge. 

3060 IF YT < ® THEN LET YO = 153 

307@ IF YB > @ THEN LET YO 23 

308@ IF XT < ® THEN LET xO 224 

3098 IF XB > @ THEN LET XO 31 

3102 PLOT X0,23: DRAW @, 128: PLOT 31,Y0: DRAW 192,0 

3121 REM use thin routine to print Labels on axes with four figure accuracy. 

3118 LET XDIF = (XT - XB)/4: LET YDIF = CYT - YB)/4 

3120 LET X = XB: LET Y = YB: FOR J = 1 TO 5 

3138 LET PX = INT (CX — XB)*XSCALE + 32.5): LET PY = YO 

3140 PLOT PX,PY-2: DRAW 0,4 

3150 LET COL = INT (PX/8) - 1: LET ROW = INT ((175 - PY)/8) +1 

3160 LET A = X: GO SUB number: GO SUB thin 

3170 LET PY = INT (CY - YB)*YSCALE + 24.5): LET PX 

3188 PLOT PX-2,PY: DRAW 4,0 

3198 LET COL = INT (PX/8) + 1: LET ROW = INT ((175 — PY)/8) 

3200 LET A = Y: GO SUB number: GO SUB thin 

3210 LET X = X + XDIF: LET Y = Y + YDIF: NEXT J 

3220 INPUT "CONTINUOUS GOR DISCRETE GRAPH ";D$: IF DS <> "c" AND DS <> "d" 
THEN GO TO 3220 

2230 IF DS = "d" THEN GO TO 3328 

3239 REM input the function to be plotted. 

3248 INPUT "F(x): y="; LINE FS 

3250 LET X = XB: LET Y = VAL (FS): LET OY = INT (CY-YB)*YSCALE + 24.5) 


XO 
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3260 PLOT 32,0Y 

3270 FOR I = 33 TO 224 

3280 LET xX (I - 32)/XSCALE + XB 

329@ LET Y VAL (FS): LET LY = INT ((Y-YB)*YSCALE + 24.5) 

3300 DRAW 1,1Y - OY: LET OY = IY: NEXT I 

3312 RETURN 

3319 REM discrete graph required so input set of points. 

3320 INPUT "No. OF POINTS ";NP: DIM X(NP): DIM YCNP) 

3330 FOR I = 1 TO NP: INPUT (”X(" + STRS I + ") ")3XC1); 
VE SIRS “SY CIs NEXT, F 

3339 REM sort points into ascending order of X coordinate. 

3340 FOR I= 1 TO NP - 1: FOR J = I+ 1 TO NP 

335@ IF X(€J) < XCI1) THEN LET T = X(1): LET XC€I) = XCQJ): LET XQ) =T 
2 LET T= ¥OI)s LET YC): = VG) <. LET YQ) = F 

3368 NEXT J: NEXT I 

3370 LET X = INT ((X(€1) - XB)*XSCALE + 32.5) 
: LET Y = INT (CY(1) - YB)*YSCALE + 24.5) 

3388 PLOT X,Y: LET OX = X: LET OY = Y: GO SUB symbol: PLOT 0X,0Y 

3389 REM join up points and place a "symbol" at each point. 

3398 FOR I 2 TO NP 

3400 LET X INT (CXC1) - XB)*XSCALE + 32.5) 
: LET Y = INT (CYCI) - YB)*YSCALE + 24.5) 

3410 PLOT X ~ OX,Y - OY: LET OX = X: LET OY = Y: GO SUB symbol: PLOT 0X,0Y 

3420 NEXT I: RETURN 


3500 REM symbol 
3510 DRAW @,1: DRAW 1,0: DRAW @,-2: DRAW ~2,0: DRAW 0,2 
3528 RETURN 


4780 REM number 

4710 LET AS = STRS A : IF LEN AS <= 4 THEN RETURN 
4720 LET AS = ASC TO 4) 

4730 RETURN 


Exercise 6.7 

Write an extended ‘number’ routine that allows you to specify the format of 
the string to be returned. One way of doing this is to enter a string containing a 
template for the number format; for example, the string ‘##.4### could 
specify a number with two digits before the decimal point and three decimal 
places after it. 


Exercise 6.8 

Construct the thin ‘sets’ required for numerical labelling (these appear on the 
cassette tape as ‘thin3’ and ‘thin4’). Use them for ‘label’ling diagrams. Figure 6.8, 
which was drawn using listing 5.2, will help you with your construction. 
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The choice is now offered between entering a functional representation of 
points on a continuous curve, and entering a set of discrete data points to be 
joined in a saw-tooth type pattern by straight lines. In the functional section of 
the routine the height of the line above each pixel point on the X-axis is calcu- 
lated and these points are joined by lines. In the discrete section the X-co- 
ordinate and Y-coordinate of available data points are INPUT and sorted into 
ascending order of the X-coordinate. These points are then joined by a line. One 
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example of each type of diagram is given. Figure 6.9 shows a typical continuous 
cosine curve and figure 6.10 shows discrete scientific data about the pH levels of 
a river. 


Exercise 6.9 

It can be seen that the only requirement for a graph of this type is a set of co- 
ordinates in ascending order of X, which are then joined up. This set can be 
created in any manner: by a series of READ statements or by a multi-line 
calculation in a subroutine. Instead of eVALuating the function string F$ we 
could write a routine that is used every time we need to calculate a point on the 
curve. Produce a routine that allows the graph of SIN X/X to be drawn, avoiding 
the calculation SIN 0/0. 


Complete Programs 


We group listings 6.6 (‘main program’, ‘charload’, ‘set’ and ‘query’), 6.1 (‘cursor’ 
and ‘grid’), 6.4 (‘save’ and ‘load’) under the name ‘libdiag’, and use it with 6.2 
(‘paper’ and ‘ink’), 6.3 (‘point’ and ‘line’), 6.5 (‘label’) and 6.7 (‘create’ and 
‘thin’): all found on the tape. Note the changes for the 16K machine mentioned 
in appendix A. 


I. ‘libdiag’, 6.2, 6.3, 6.5, 6.7. Data required: 


‘DEFINE CHARACTERS?’ (type) Yes to create special rotated characters 
and blocks for histograms; otherwise No 
‘LOAD CHARACTERS?’ Y if special character sets (including ones above) 
are to be LOADed from tape; otherwise No 
‘LOAD PICTURE?’ Y LOAD previously stored picture; otherwise N 
‘DRAW DIAGRAM?’ Y to draw a histogram, pie-chart or graph; N if 
picture is to be edited only 
“LABEL PICTURE?’ Y to use ‘label’; otherwise N 
. ‘COLOUR PAPER?’ Y or N. If Y then specify ‘WHICH COLOUR’ (for 
example, 1 : move cursor into position, using ‘grid’ if necessary) and type 
size of area in blocks ROW*COL (for example, 2 *4 ) 
‘COLOUR INK?’ If Y then specify ‘WHICH COLOUR’ (for example 5: 
move cursor into position, using ‘grid’ if necessary) and type size of area in 
blocks ROW*COL (for example, 3*1) 
‘DRAW POINT?’ If Y then use cursor to specify point: ‘WHICH COLOUR’ 
(for example, 6) and OVER (1 or 0) 
‘DRAW LINE?’ If Y then use cursor to specify end points: ‘WHICH 
COLOUR’ (for example, 6) and OVER (1 or 0) 
‘END PICTURE?’ If N then go through sequence again 
‘SAVE PICTURE?’ If Y then input name of picture 


I. 


fil. 
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Experiment with the data graphs. 
‘libdiag’ and listing 6.8 (‘histo’/type1). Data required: for example 


‘RANGE OF VERTICAL’ 0 ‘TO’ 100 
‘No. OF BARS’ 6 
‘DATA FOR BAR 1’ 56‘COLOUR’ 2 


‘DATA FOR BAR 2’ 95 ‘COLOUR’ 6 


‘DATA FOR BAR 3’ 20‘COLOUR’ 4 


‘DATA FOR BAR 4’ 77 ‘COLOUR’ 5 


‘DATA FOR BAR S’ 54°COLOUR’ 1 


‘DATA FOR BAR 6’ 33 ‘COLOUR’ 3 
‘libdiag’ and listing 6.9 (‘histo’/type2). Data required: for example 


‘RANGE OF VERTICAL’ 0 ‘TO’ 50 
‘No. OF BARS’ 4 

‘COLOUR FOR BAR 12 
‘DATA MAX FOR BAR 1’ 44 
‘DATA MIN FOR BAR 1’ 22 
‘COLOUR FOR BAR 2’ 6 
‘DATA MAX FOR BAR 2’ 36 
‘DATA MIN FOR BAR 2’ 5 
‘COLOUR FOR BAR 3’ 4 
‘DATA MAX FOR BAR 3° 42 
‘DATA MIN FOR BAR 3’ 29 
‘COLOUR FOR BAR 41 
‘DATA MAX FOR BAR 4 31 
‘DATA MIN FOR BAR 4 12 


. ‘libdiag’ and listings 6.10 and 6.11 (‘pie’, ‘hatch’, etc.). Data required: for 


example 


‘No. OF SEGMENTS’ 3. 

‘COLOUR’ 0 

‘DATA I’ 1 

‘DATA 2” 2 

‘DATA 3° 3. 

Centre pie with cursor then ‘RADIUS (IN PIXELS) 75 

Use cursor to centre wedge ‘HATCH’ (x, y, b, n) b: ‘JUMP’ 8: ‘REM’ 5 
Use cursor to centre wedge ‘HATCH’ (x, y, b,n) y: ‘JUMP’ 1: ‘REM’ 0 
Use cursor to centre wedge ‘HATCH’ (x, y, b,n)n ‘ 


. ‘libdiag’ and listing 6.12 (‘graph’, etc.). The questions posed by the program 


are self-explanatory: like those above. 


7 Three-dimensional Coordinate 
Geometry 


Before we lead on to a study of the graphical display of objects in three-dimen- 
sional space, we first have to come to terms with three-dimensional Cartesian 
coordinate geometry. As in two-dimensional space, we arbitrarily fix a point in 
the space, named the coordinate origin (origin for short). We then imagine three 
mutually perpendicular lines through this point; each line goes off to infinity in 
both directions. These are the x-axis, y-axis and z-axis. Each axis is thought to 
have a positive and a negative half, both starting at the origin; that is, distances 
measured from the origin along the axis are positive on one side and negative on 
the other. We can think of the x-axis and y-axis in a similar way to two-dimen- 
sional space, both lying on the page of this book say, the positive x-axis 
‘horizontal’ and to the right of the origin, and the positive y-axis ‘vertical’ and 
above the origin. This just leaves the position of the z-axis: it has to be perpen- 
dicular to the page (since it is perpendicular to both the x-axis and the y-axis). 
The positive z-axis can be into the page (the so-called left-handed triad of axes) 
or out of the page (the right-handed triad). In this book we always use the left- 
handed triad notation. What we say in the remainder of the book about left- 
handed axes has its equivalent in the right-handed system — it is not important 
which notation you decide finally to use, as long as you are consistent. 

We specify a general point p in space by a coordinate triple or vector (X, Y, Z), 
where the individual coordinate values are the perpendicular projections of the 
point on to the respective x-axis, y-axis and z-axis. By projection we mean the 
unique point on the specified axis such that a line from that point to p is perpen- 
dicular to that axis. 

There are two operations we need to consider for three-dimensional vectors. 
Suppose we have two vectors p; =(x1,¥1, Z,) and py =(X2, yz, Zz) then 


scalar multiple kp, =(kxx,,k xy ,,kxz,) multiply the three individual 
coordinate values by a scalar number k 

vector adaition p, + pz =(X; +X2,¥1 + 2,2, +22) add the x-coordinates 
together, then the y-coordinates and finally the z-coordinates to form a new 
vector 
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d=(x, y, z) and —d =(—x, —y, —z) represent the same line in space but their 
directions are of opposite senses. We define the length of a vector d = (x, y, Z) 
(sometimes called its modulus, or absolute value) as ||, the distance of the 
point vector from the origin 


|dl=J/(x? + y? +27) 


So any point on the line p + ud is found by moving to the point p and then 
travelling along a line that is parallel to the direction d, a distance yw |d|in the 
positive sense of d if u is positive, and in the negative sense otherwise. Note any 
point on the line can act as a base vector, and the directional vector may be 
replaced by any non-zero scalar multiple of itself. 

If the directional vector d = (x, y, z) makes angles 6,, 6, and 6, with the 
respective positive x-direction, y-direction and z-direction, then the ratios 


X:Y-Z = cos 8 :cos 8, :cos 6, 


which means that d =(A x cos #,,A xX cos @y,A x cos 8,) for some A. 
We know from the properties of three-dimensional geometry that 


2 2 2 = 
cos” 0, + cos” 0, + cos” 6, = 1 


Hence A = |d], and if the directional vector has unit modulus (that is, modulus 
== 1), then the coordinates of this vector must be (cos 0, cos Oy, cos 67); 
that is, A= 1. The coordinates of a directional vector given in this way are called 
the direction cosines of the set of lines generated by the vector. In general, if 
the direction vector is d =(x, y, z) then the direction cosines are 


(Tar fat rai) 
ld| Idl Id 


Example 7.1 


Describe the line joining (1, 2, 3) to (—1, 0, 2), using the three methods shown 
so far. 


The general point (x, y, z) on the line satisfies the equations 


(x —1) x (0—2)=( —2)x (-1 — 1) that is, -2x + 2y =2 (7.1) 
(vy —2)x (2 —3)=(z —3)x (0-2) —y +2z=4 (7.2) 
and (z —3) x (-1 —1)=( —1)x (2-3) —2z+x=-5 (7.3) 


Notice that equation 7.1 is —2 times the sum of equations 7.2 and 7.3. Thus we 
need consider only these latter two equations, to get 
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y=2z—4 and x=2z—5 


so that the general point on the line depends only on one variable, in this case z, 
and is given by (2z — 5, 2z — 4,z). We easily check this result by noting that 
when z = 3 we get (1, 2,3) and when z = 2 we get (—1, 0, 2), the two original 
points defining the line. 

In vector form the general point on the line (depending on y) is 


p(w) =(1 — 4) 1, 2,3)+4(-1,0, 2)=(1 — 2u, 2 — 2,3 — py) 
Again the coordinates depend on just one variable (1), and to check the validity 


of this representation of a line we note that p(0) = (1, 2, 3) and p(1) =(—1, 0, 2). 
If we put the line into base/directional vector form we see that 


P(t) = (1, 2,3) + u(-2, —2, -1) 
with (1, 2,3) as the base vector and (—2, —2, —1) as the direction (which 
incidently has modulus V/(4 + 4 + 1) = «/9 = 3). We noted also that any point on 


the line can act as a base vector, and so we can give another form for the general 
point on this line, p’ 


p(x) = (-1 ? 0; 2) i u(-2, =2; a 1) 


We can change the directional vector into its direction cosine form (—2/3, —2/3, 
—1/3) and represent the line in another version of the base/direction form 


p"(u) = (1, 2, 3) + a(—2/3, -2/3, -1/3) 
Naturally the same y value will give different points for different representations 
of the line; for example, p(3) = (—5, —4, 0), p'(3) =(—7, —6, —1) and p"(3) = 
(—1, 0, 2). The direction of this line makes angles of 131.81 degrees = cos! 


(—2/3), 131.81 degrees and 109.47 degrees = cos~! (—1/3) with the positive 
x-direction, y-direction and z-direction respectively. 


The Angle Between Two Directional Vectors 
In order to calculate such an angle, first we introduce the operator * the dot 
product or scalar product. This operates on two vectors and returns a scalar 
(real) result. Thus 

P* d= (%1,V1,21) * 2,2, 72) =X X Xp + Vy X Yo +721 X Zz 


If p and q are both unit vectors (that is, in direction cosine form), and 6 is the 
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n:(bt+pd)=k 


that is, u=(k —n>+ b)/(n+ d) providedn + d #0. 
n+ d=Oif the line and plane are parallel and so either there is no point of 
intersection or the line is in the plane. 


The Distance of a Point from a Plane 


The distance of a point p, from a planen + x =k is the distance of p, from the 
nearest point p, on the plane. Hence the normal from the plane at p. must pass 
through p, . This line can be written p, + un, and the py value that defines p2 is 

such that 


M=(k—n> py)/(n-n) 
from the equation above, and the distance of the point p2 =p, + un from p, is 
ux Inl=|lk—-n-+p,l/Inl 


In particular, if p, is the origin O then the distance of the plane from the origin 
is |kK|/\ml. Furthermore, if # is a direction cosine vector, we see that the distance 
of the origin from the plane is ||, the absolute value of the real number k. 


Example 7.2 
Find the point of intersection of the line joining (1, 2, 3) to (—1, 0, 2) with the 
plane (0, —2, 1) + x = 5, and also find the distance of the plane from the origin. 


b=(1,2,3) 
n=(0, —2,1) 
d=(-1,0, 2) — (1, 2, 3) =(-2, —2, —1) 
neb=(Ox1+—2x2+1x 3)=-1 
ned =(0x —-2+-2x -2+1x -1)=3 


hence the p value of the point of intersection is (5 — (—1))/3 = 2, and the point 
vector is 


(1, 2, 3) + 2(-2, —2, -1) =(-3, -2, 1) 


and the distance from the origin is 5/ln|]=5/,/5 =/5. 


The program given in listing 7.1 enables us to calculate the point of intersec- 
tion (array P) of a line and a plane. The line has base vector B and direction D, 
and the plane has normal N and plane constant K. Note, since we are working 
with decimal numbers, and thus are subject to rounding errors, we cannot check 
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if a dot product is zero, We can find only if it is sufficiently small to be consider- 
ed zero, and what is meant by sufficiently small is left to the programmer (on the 
Spectrum about six places after the decimal point is reasonable). 


Listing 7.1 


100 REM intersection of Line and plane 
110 DIM B(3): DIM D(3): DIM N(3): DIM P(3): DIM A$(8) 
128 INPUT "BASE VECTOR OF LINE™,"C"3B(1)3","78¢2) 3", "3B(3)3"9" 
130 PRINT AT 1,0;"BASE VECTOR OF LINE”’,"("38(1)3","3B(2)3","2B(3);")" 
140 INPUT "DIRECTION VECTOR OF LINE”,"(";D(1)2",";0(2)3","7D0¢3)2")" 
150 PRINT AT 4,0;"DIRECTION VECTOR OF LINE","C";0(1);","30(2)3",",D(3)3")" 
168 INPUT "NORMAL TO PLANE",,"C"ZNC4)27","ZNC2)3","ZNC3);")" 
170 PRINT AT 7,Q;"NORMAL TO PLANE™,,"C"ZNC1) 3", "ZNC2) 3", "2NC3) 5°)" 
180 INPUT “PLANE CONSTANT ";K 
188 REM calculate point of intersection (P(1),P(2),P(3)) 
189 REM of Line and plane, data input above. 
19% PRINT AT 10,0;"PLANE CONSTANT "7K 
20D LET DOT = N(1)*D(1) + NC2)*D(2) + NC3)*D(3) 
209 REM zero dot product so no intersection. 
272 IF ABS DOT < 0.@0020201 THEN PRINT AT 15,@;"NO POINT OF INTERSECTION": STOP 
22@ LET MU = (K — N(1)*B(1) - NC2)*B(2) - NC3)*B(3))/D0T 
230 FOR I = 1 TO 3: LET PCI) = BCI) + MU*D(I) 
IF ABS PCI) < 2.000001 THEN LET PCI) = @ 
248 NEXT I: PRINT AT 15,0;"POINT OF INTERSECTION ","C("; 
249 REM tidy up output. 
250 FOR I = 1 TO 3: LET AS = STRS PCI): FOR J = 1 TO 8 
260 IF ASCJ) <> " " THEN PRINT AS(J); 
278 NEXT J: IF I <> 3 THEN PRINT ","; 
280 NEXT I: PRINT ")" 
2908 STOP 


The Point of Intersection of Two Lines 


Suppose we have two lines b; + ud, and b, + Ad2. Their point of intersection, 
if it exists (if the lines are not coplanar or are parallel then they will not inter- 
sect), is identified by finding unique values for y and ) that satisfy the vector 
equation (three separate coordinate equations) 


b, +ud, =b, + Ad, 


Three equations in two unknowns means that for the equations to be meaningful 
there must be at least one pair of equations that are independent, and the 
remaining equation must be a combination of these two. Two lines are parallel if 
one directional vector is a scalar multiple of the other. So we take two independ- 
ent equations, find the values of 4 and \ (we have two equations in two un- 
knowns), and put them in the third equation to see if they are consistent. 
Example 7.3, below, demonstrates this method, and listing 7.2 is a way of 
implementing it on a computer. The first line has base and direction stored in 
arrays B and D, and the second line in C and E: the calculated point of inter- 
section goes into array P. 

Note that if the two independent equations are 
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411 X Mt+4y2 X A=D, 


Ay, X Utaz2 X A=bd2 


then the determinant of this pair of equations A = a1, X 422 —@ 12 X@,, will be 
non-zero (because the equations are not related), and we have the solutions 


M=(@z2 X Dy —Gy2 X bgVA and A=(@y1 xX by — a2, X B)/A 


Listing 7.2 


100 


REM in 


tersection of two Lines 


118 DIM B(3): DIM D(3): DIM CC3): DIM E(3): DIM P(3): DIM AS(8) 
120 INPUT "BASE VECTOR OF FIRST LINE","("378(1)3","7802) 7", "7803 3")" 
130. PRINT AT 19s"BASE VECTOR OF FIRST LINE”, “C"sBCI9s", "SB(2)5","SBK3) 579" 
140 INPUT “DIRECTION VECTOR OF FIRST LINE", "(3D (1);",%37002)2","30 (3) 2°" 
158 PRINT AT 4,0;"DIRECTION VECTOR OF FIPST LINE","C";D(1);","sD C2) 5","Z,D(3);")" 
168 INPUT "BASE VECTOR OF SECOND LINE","C"2C C1) 2","2CC203","2C (3) 37)" 
172 PRINT AT. 7¢,03"BASE VECTOR OF SECOND LINE", "OC" sC C1)e" "50 G2) sh gOS 3 
182 INPUT “DIRECTION VECTOR OF SECOND LINE","C"ZEC(1)3","7E C2) 2", "s7E (3) 3%)" 
198 PRINT AT 10,0;"DIRECTION VECTOR OF SECOND LINE","C"ZE(1) 5", "ZE(2) 5","ZE C3) 39)" 
198 REM calculate point of intersection (P(1),P(2),P(3)) 
199 REM of two Lines, data input above. 
195 REM find any two independent Line equations from the three (x/y/z). 
200 FOR T= 1 TO 3 
21@ LET J = I+ 1: IF J = 4 THEN LET J = 1 
220 LET DELTA = EC(I)*D(J) — ECJ)*D(I) 
230 IF ABS DELTA > 2.000021 THEN GO TO 260 
248 NEXT I 
249 REM cannot find two independent equaticns: Lines do not intersect. 
25@ PRINT AT 15,@;"'LINES DO NOT INTERSECT": STOP 
259 REM calculate MU and LAMBDA values of point of intersection. 
260 LET MU = CECID*(CCJ) - BCID) - ECJ)*(CCI) - BCI)))/DELTA 
270 LET LAMBDA = (DC(1)*(C(J) = BCJ)) - DCJ)*(CCL) - BCI)))/DELTA 
279 REM no solution if MU and LAMBDA co not satisfy third equation. 
280 LET K = J + 1: IF K = 4 THEN LET K = 1 
298 IF ABS (BCK) + MU*D(K) - CCK) — LAMBDA*E(K)) > 2.@02001 THEN GO TO 250 
299 REM calculate (P(1),P(2),P(3)) using MU value. 
300 FOR I= 1 TO 3: LET PC(1) = BCL) + MU*DC(I) 
: IF ABS PCI) < ®.0000201 THEN LET PCI) = @ 
310 NEXT I: PRINT AT 15,0;"POINT OF INTERSECTION ","("'; 
319 REM tidy up output. 
320 FOR 1 = 1 TO 3: LET AS = STRS PCI): FOR J = 1 TO 8 
330 IF ASCJ) <> " " THEN PRINT AS(J)7 
340 NEXT J: IF I <> 3 THEN PRINT ","; 
358 NEXT I: PRINT '")" 
368 STOP 
Example 7.3 


Find the point of intersection (if any) of 


(a) (1,1, 1)+u(2,1,3) with (0,0, 1)+A(-1, 1,1), 
(b) (2,3,4)+u(1, 1,1) with (—2,—-3, —4)+A(1, 2,3). 
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In (a) the three equations are 


1+2=0—-A (7.4) 
1+ p=OtA (7.5) 
1+3p=1+A (7.6) 


From equations 7.4 and 7.5 we get w = —2/3 and \ = 1/3, which when substituted 
in equation 7.6 gives 1 + 3 x (—2/3) = —1 on the left-hand side and 1 + 1 x (1/3) 
= 4/3 on the right-hand side, which are obviously unequal, so the lines do not 
intersect. From (b) we get the equations 


2+m=-2+ 2d (7.7) 
3+p=—3+20 (7.8) 
4+u=—44+32 (7.9) 


and from equations 7.7 and 7.8 we get up = —2 and d = 2, and these values also 
satisfy equation 7.9 (left-hand side = right-hand side = 2). So the point of 
intersection is 


(2, 3,4) + —2(1, 1, 1)=(-2, -3, —4) + 2(1, 2,3) =, 1,2) 


The Plane Through Three Non-collinear Points 


In order to solve this problem we must introduct a new vector operator, X the 
vector product, which operates on two vectors p and gq (say) giving the vector 
result 


P Xq= (Pi, P2, Ps) X(41, 92, 93) 
=(P2 X 43 —P3 X 92,P3 X V1 ~ P1X G3,P1 X 2 —P2X G1) 


If p and g are non-parallel directional vectors then p Xq is the directional vector 
perpendicular to both p and q. It should be noted also that this operation is 
non-commutative. That is, in general for given values of p and qg, we note that 

p Xq #q Xp. These two vector products will represent directions on the same 
line but with opposite senses. For example, (1, 0,0) X (0, 1, 0) = (0,0, 1) but 
(0, 1,0) X(1, 0, 0) = (0, 0, —1); (0, 0, 1) and (0, 0, —1) are both parallel to the 
z-axis (and so perpendicular to the directions (1, 0, 0) and (0, 1, 0)), but they are 
of opposite senses. Listing 7.3 gives a main program that calls the routines 
‘vecprod’ (for the vector product of two vectors L and M returning vector N) 
and ‘dotprod’ (which calculates the dot product DOT of the vectors L and M), 
both given in listing 7.4. 
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Listing 7.3 


100 REM dot product and vector product 

112 LET vecprod = 302: LET dotprod = 400 

120 DIM L(3): DIM M(3): DIM N(3) 

TSO INEUT VECTOR 5 MCCS Diet peel e) ep uelaoue 3 

143 PRINT AT 71,03°VECTOR OP, PCL 10g gh 2 57 RL 0395 ")" 
15@ INPUT "VECTOR M™,"C'ZM(1) 3", "2MC2) 3", "2M(3) 2"")" 

160 PRINT AT 4,0;"VECTOR M","C"ZM(1)3","2M(2) 37," 9M (3) 5 """ 
178 GO SUB vecprod 

182 PRINT AT 8,@;"VECTOR PRODUCT, "C("ZNC1) 3", "3NC2) 2," ZNC3) 7)" 
19% GO SUB dotprod 

200 PRINT AT 11,0;"DOT PRODUCT", DOT 

212 STOP 


Listing 7.4 


302 REM vecprod 

301 REM IN : L(3),M(3) 

302 REM OUT : N(3) 

309 REM N is the vector product of L and M. 

312 LET NI = 2: LET NNI = 3 

320 FOR T= 1 103 

330 LET NCI) = LONI) *M(NNID-LONNI) *MCNID 

349 LET NI = NNI: LET NNI = NI + 1: IF NNI = 4 THEN LET NNI = 1 
358 NEXT I 

36@ RETURN 


402 REM dotprod 

401 REM IN : L(3),M(3) 

402 REM OUT : DOT 

489 REM DOT is the dot product of L and M. 

410 LET DOT = @ 

420 FOR I = 1 TO 3: LET DOT = DOT + LCI)*M(I): NEXT I 
430 RETURN 


Suppose we are given three non-collinear points p,;, p2 and p3. Then the two 
vectors pz — p; and p3 — p, represent the directions of two lines coincident at 
P,, both of which lie in the plane containing the three points. We know that the 
normal to the plane is perpendicular to every line in the plane, in particular the 
two lines mentioned above. Also, because the points are not collinear p, — p; # 


P3 — p;, the normal to the plane is (p2 — p,) X(p3 — p;), and since p, lies in 
the plane the equation is 


((P2 — Pi) X(P3 —P1))* (xX -—P1)=0 


Example 7.4 


Give the coordinate equation of the plane through the points (0, 1, 1), (1, 2, 3) 
and (—2, 3, —1). 
This is given by the general point x =(x, y, z) where 


(1, 2,3) -— (0, Ls 1)) X ((-2,3,-1) - ©, Ms 1)))° (x, y, z)— (0, l; 1))=0 
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that is 

((1, 1, 2) X (2, 2, -2)* @& y—1,z-1=0 
or 

(—6, -2,4)° (x,y —1,z-—1)=0 


which in coordinate form is —6x — 2y + 4z — 2 = 0 or in the equivalent form 
3x +y —2z=-1. 


The Point of Intersection of Three Planes 


We assume that the three planes are defined by equations 7.10 to 7.12 below. 
The point of intersection of these three planes, x = (x, y, z), must lie in all 
three planes and satisfy 


ny *x=k, (7.10) 
ny + x=Ke (7.11) 
n3 *x=ks3 (7.12) 


where my = (7141, 12, 13), Mz = (M24, N22, Naz) and m3 =(N31, M32, N33). We 
can rewrite these three equations as one matrix equation 


Nit My2 N13 x ky 
Nyy M22 M23 |X| Y P=] ke 
N31 N32 33 Zz ks 


and so the solution for x is given by the column vector 


-1 
x Nia Mig M13 ky 
Y Fr Mai N22 N23 X | k2 
z N31, N32 N33 k3 


So any calculation requiring the intersection of three planes necessarily involves 
the inversion of a 3 X 3 matrix. Listing 7.5 gives the Adjoint method of finding 
M, the inverse of matrix N. 
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Listing 7.5 


50M REM inv/erse of 3x3 matrix 

501 IN : N(3,3) 

502 OUT : SINGULAR, M(3,3) 

51@ LET SINGULAR = 1 

528 LET DET = @: LET NI = 2: LET NNI = 3 

530 FOR I= 1 TO 3 

548 LET DET = DET + NC1,1)*(NC2,NT)*NC3,NNID-NC2,NNI)*N(3,NI)) 
55@ LET NI = NNI: LET NNI = NI + 1: IF NNI = 4 THEN LET NNI = 1 
560 NEXT I 

569 REM DETerminant of singular matrix is zero, there is no inverse. 
570 IF ABS DET < B.@00021 THEN RETURN 

579 REM calculate M, the inverse of N, by the Adjoint method. 
580 LET NI = 2: LET NNI = 3 

590 FOR I= 1 TO 3 

602 LET NJ = 2: LET NNJ = 3 

612 FOR J = 1 TO 3 

620 LET MWJ,1) = CNONI,NJ)*NONNI,ZNNJ) — NONI, NNJ) *NONNI,NJ))/DET 
630 LET NJ = NNJ: LET NNJ = NJ + 1: IF NNJ = 4 THEN LET NNJ = 1 
640 NEXT J 

65@ LET NI = NNI: LET NNI = NI + 1: IF NNI = 4 THEN LET NNI = 1 
660 NEXT I 

670 LET SINGULAR = @ 

688 RETURN 


Again in this routine, vectors are represented as one-dimensional arrays, thus 
B(3) contains the solution of the equations, x, while K(3) contains the plane 
constants, We are given the normals #,, m2 and n, in the form of a3 X 3 array 
N, so the values in B are found by the following code. Obviously if any two of 


Listing 7.6 


120 REM intersecticn of three planes 

11@ DIM NC€3,3): DIM M(3,3): DIM K(3): DIM B(3) 

120 LET inv = 500 

129 REM input data on three planes. 

132 PRINT AT 2,10;"COEFFICIENTS CONSTANT” 

140 FOR I= 1 TO 3 

15@ PRINT AT 2 + 2*1,0;"PLANEC(";ZI;") = ¢ , . 2” 
160 FOR J = 1 703 

170 LET I$ = "INPUT NC" + STRS 1+ "," + STRS J +") " 
180 INPUT (1$);NCI,J): PRINT AT 2 + 21,7 + 4xJ;N(I,J) 
190 NEXT J 

200 LET 7S = "INPUT KC" + STRS I+") ” 

210 INPUT (1$);K(I): PRINT AT 2 + 2*1,28;K(1) 

220 NEXT I 

229 REM if matrix of normals is singular then no intersection. 
232 GO SUB inv 

248 PRINT AT 12,3;"POINT OF INTERSECTION” 

25@ IF SINGULAR THEN PRINT AT 12,0;”"NO": STOP 

259 REM point of intersection jis (B(1),B(2),B(3)). 

268 FOR I= 1 TO 3 

270 LET BC1) = @ 

282 FOR J = 1 T03 

290 LET BCI) = BCI) + MCI,J)*K (J) 

300 NEXT J 

310 IF ABS BCI) < 2.020021 THEN LET BCI) = B 

320 PRINT AT 12 + 2%1,7;"BC(";1;") = ";BC1) 

332 NEXT I 

349 STOP 
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the planes are parallel or the three meet in a line, then there is no unique point 
of intersection: in these cases DET, the determinant of the matrix N is zero and 
variable SINGULAR = 1. (See listing 7.6.) 


Example 7.5 
Find the point of intersection of the three planes (0, 1,1)* x =2,(1,2,3)*x= 
4and(1,1,1)+x=0. 

In the matrix form we have 


G1 1 
12 3 1% 
Ee Ga | 


N= & 
it 
oN 
eee 


Theinverseof /0 11\ is /-1 O 1 
2s 2 -l 1 
eed —} | —1 
and so 
x le ty eae | 2 —2 
y)= 2 -l 1)/xX {4 ]= 0 
z —] 1 —1] 0 # 


This solution is easily checked: (0, 1, 1) * (—2, 0, 2) = 2, (1, 2, 3) * (—2, 0, 2) 
= 4 and (1, 1,1)* (—2, 0, 2) = 0, which means the point (—2, 0, 2) lies on all 
three planes and so is their point of intersection. 


The Line of Intersection of Two Planes 


Let the two planes be 


p°x=(P1, P2,P3)*x =k, and 
g°xX=(41,492,93)°xX=kz 


We assume that the planes are not parallel, and so p # Aq for all A. The line 
common to the two planes naturally lies in gach plane, and so it must be per- 
pendicular to the normals of both planes (p and q). Thus the direction of this 
line must be d=p Xq and the line can be written in the form b + wd, where b 
can be any point on the line. In order to classify completely the line, we have to 
find one such b. We find a point that is the intersection of the two planes, 
together with a third that is neither parallel to them nor cuts them in a common 
line. Choosing a plane with normal p X q will satisfy these conditions (and 
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remember that we have already calculated this vector product). We still need a 
value for k3, but any will do, so we take k, =0 in order that this third plane 
goes through the origin. Thus b is given by the column vector 


Py P2 P3 = ky 
q1 q2 q3 X|{ k, 
P2X* 43 —P3X% G2 P3*% G1 —-P1 X¥ G43 Py X d2—-P2X qi 0 


Example 7.6 

Find the line common to the planes (0,1, 1)* x = 2 and (1, 2,3) * x = 2. Since 
p=(0,1,1) and g=(1,2,3), thenp Xq=(1 x 3—1x2,1x1—0x3,0~x 
2—1x1)=(1, 1, —1). We require the inverse of 


01 1 [> 2 
a ae ee ee 
es P\ Ale ifunst 


and hence the point of intersection of the three planes is 


eo 2\ , (6 4 
gle ae aes al 2 
—t iA o/ 3 \o 0 


and the line is (—2, 2,0) +y(1,1, —1). 
It is easy to check this result, because all the points on the line should lie in 
both planes 


(0,1,1)* (2, 2,0) +n, 1, -1))=(, 1,1) + (-2, 2,0) +u(0,1,1)- 


*(,1,-1)=2 for all w and 
(1 273)* ((—2, 2,0) +u(1, 15) =(, 1, 1) y (2,.2;.0) + 2(1, 2,3)- 
*(1,1,-1)=2 for all pu 


The program to solve this problem (listing 7.7) is given below; note it is very 
similar to the previous program. Also note that arrays are not explicitly used for 
p and q, these values are stored in the first two rows of array N. Array B holds 
the base vector of the line of intersection, but we do not place d in an array 
because the values are already in the third row of N. 


Functional Representation of a Surface 


In our study of two-dimensional space in chapter 3 we noted that curves can be 
represented in a functional notation. This idea can be extended into three 
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Listing 7.7 


120 REM Line of intersection of two planes 

112 DIM NC3,3): DIM M(3,3): DIM K(3): DIM BC(3): DIM AS(Z2) 
120 LET inv = 500: LET AS = “PR” 

125 REM input data on two planes. 

130 PRINT AT 2,12;"COEFFICIENTS CONSTANT" 

140 FOR T= 1 TC 2 

15@ PRINT AT 2 + 2*1,0;"PLANE(";I;"= ( , , )” 
16@ FOR J = 1 TO 3 

170 LET I$ = “INPUT " + ASCI) + "C(" + STRS J+") " 
180 INPUT (IS);NCI,J): PRINT AT 2 + 21,7 + 4%J;NCI,J) 
198 NEXT J 

200 LET I¢ = "INPUT KC" + STRS I+") " 

212 INPUT (1$);KC(1): PRINT AT 2 + 2*1,28;K(1) 

220 NEXT I 

229 REM form third plane. 

230 LET N(3,1) = N(1,2)*N(2,3) - NC1,3)*NC2,2) 

248 LET N(3,2) N(1,3)*NC2,1) - NC1,1)*NC2,3) 

250 LET N(3,3) N(1,1) *NC2,2) - NC1,2)*N(2,1) 

260 LET K(3) = 90 

269 REM if matrix of normals is singular then no intersection. 
270 GC SUB in 

28@ PRINT AT 10,3;"LINE OF INTERSECTION" 

298 IF S"PMELLAR THEN PRINT AT 10,0;"NO": STOP 

326 PRINT AT 12,2;"BASE VECTOR DIRECTION” 

328 FEM Line cf intersection :- 

329 REM base (B(1),B(2),B(3)) and direction (N(3,1),N(3,2) ,N(3,3)). 
312 FOR 1 = 1 T0 3 

220 LET BCI) =@ 

330 FOR J = 1 TO 3 

34@ LET BCI) = BCI) + MCI,J)*K (J) 

250 NEXT J 

360 IF ABS B(1) < 2.002201 THEN LET BCI) = @ 

270 PRINT AT 12 + 2wI,@;"BC"31;") = "ZBCI) 

380 PRINT AT 12 + 2*1,20;"D("Z1;") = "ZN(3,1) 

398 NEXT I 

406 sTop 


dimensions when we study surfaces. The simplest form of surface is an infinite 
plane with normal nm =(n,, "2, 13), which we have seen can be given as a co- 
ordinate equation 


nex—k=nyxxtnzx ytn3zxz—-k=0 


This can be rewritten in functional form for a general point x = (x, y, z) on the 
curve 


f@) =f, yy, 2)=ny Xxtnyxytn,xz—kEnex-—k 


This is a simple expression in variables x, y and z (x) that enables us to divide all 
the points in space into three sets, those with f(x) = 0 (the zero set), with 

f(x) <0 (the negative set) and f(x) > 0 (the positive set). A point x lies on the 
surface if and only if it belongs to the zero set. If the surface divides space into 
two halves (each half being connected; that is, any two points in a given half can 
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be joined by a curve that does not cross the surface), then these two halves may 
be identified with the positive and negative sets. Again beware, there are many 
curves that divide space into more than two connected areas and then it is 
impossible to relate functional representation with connected sets; for example, 
f(x, y, Z) = cos (vy) — sin (x? +z”). There are, however, many useful well-behaved 
curves with this property, the sphere of radius r for example 


f@)=r* — [xi 
that is, 
fey ner —-x-y -2 


If f(x) = 0 then x lies on the sphere, if f(x) <0 then x lies outside the sphere, 
and if f(x) > 0 then x lies inside the sphere. 

The functional representation of a surface is a very useful concept. It can be 
used to define sets of equations necessary in calculating the intersections of 
various objects. The major use, however, is to determine whether or not two 
points p and qg (say) lie on the same side of a surface that divides space in two. 
All we need do is compare the signs of f(p) and f(q). If they are of opposite 
signs then a line joining p and g must cut the surface. An example is given below. 


Is a Point on the Same Side of a Plane as the Origin? 


Suppose the plane is defined (as earlier) by three non-collinear points p,, p, and 
p3. Then the equation of the plane is 


((P2 — Pi) Xs — P1))* (X— pi) =0 


We may rewrite this in functional form 
f(x) =(@2 —P1) X@s —P1))* &—-P1) 


So all we need do for a point e (say) is to compare f(e) with f(O), where O is 
the origin. We assume here that neither O nore lie in the plane. 
We shall see that this idea is of great use in the study of hidden line algorithms. 


Example 7.7 
Are the origin and point (1, 1, 3) on the same side of the plane defined by points 
(0,1, 1), (1, 2, 3) and (2, 3, —1)? 

From example 7.4 we see that the functional representation of the plane is 


f(x) = (6, —2, 4) * (* — (0,1, 1) 
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Thus 

f(0, 0, 0) = — (—6, —2, 4) > (0,1,1)=—-2 
and 

f (4,1, 3) = — (—6, —2, 4) - ((1, 1, 3) — (0,1, 1)) =2 


Hence (1, 1, 3) lies on the opposite side of the plane to the origin and so a line 
segment joining the two points will cut the plane at a point (1 — yn) (0, 0,0) + 
w(1, 1,3) whereO<p<l. 


Is an Oriented Convex Polygon of Vertices in Two-dimensional Space Clockwise 
or Anti-clockwise? 


We start by assuming that the polygon is a triangle defined by the three vertices 
P, =(%1,¥1),P2 =(%2, ¥2) and p3 =(x3, y3). Although these points are in 
two-dimensional space we can assume they lie in the x/y plane through the 
origin of three-dimensional space by giving them all a z-coordinate value of zero. 
We systematically define the directions of the edges of the polygon to be 

(P2 — Pi), (P3 — Pz) and (p, — p3). Since these lines all lie in the x/y plane 
through the origin we know that for all i= 1, 2 or 3 and for some real numbers 
r; that depend oni 


(Pit: — Pi) X Pier — Pin) = (0, 0,74) 


This is because this vector product is perpendicular to the x/y plane and so only 
z-coordinate values can be non-zero. The addition of subscripts is modulo 3. 
Because the vertices were taken systematically, note that the signs of these 7; 
values are always the same — but what is more important, if the p; are clockwise 
then the 7; are all negative, and if the p; are anti-clockwise the 7; are all positive. 

Given an oriented convex polygon, we need consider only the first three 
vertices to find if it is clockwise or anti-clockwise. This technique will prove to 
be invaluable when we deal with hidden line and surface algorithms later in this 
book. Listing 7.8 allows us to find whether or not three ordered two-dimensional 
vertices form an anti-clockwise triangle. 


Example 7.8 
Why is the polygon given in example 3.4 anti-clockwise? 

The vertices (considered in three dimensions) are (1, 0, 0), (5, 2, 0), (4, 4, 0) 
and (—2, 1, 0). The directions of the edges are (4, 2, 0), (—1, 2, 0), (6, —3, 0) 
and (3, —1, 0). Then, since 
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Listing 7.8 


100 KEM orientation of 2-D triangle 

110 DIM X(3): DIM YC(3) 

120 LET J9 = "TYPE IN COORDINATES OF TRIANGLE " 

130 FOR I= 1 To 3 

148 LET IS = "VERTEX(" + STRS I+ "= (" 

15@ INPUT (JS + IS};X(1)3","ZY C1) 3"" 

16@ PRINT AT 2 + 2%1,0;18;X(1)7","7YC1)7")" 

17@ NEXT I 

180 PRINT AT 12,@;"TKE TRIANGLE IS "; 

188 REM (DX1,DY1) is 2-D direction vector jcining point 1 to point 2. 
189 REM (DX¥2,DY2) is 2-D direction vector joining poirt 2 to point 3. 
19@ LET DX7 = X(2) - X(1): LET DY1 = Y(2) - Y(1) 

200 LET DX2 = X(3) - X(2): LET DY2 = Y(3) - Y(2) 

209 REM use 3-D vector product to check on orientation of triangle. 
212 IF DX1*DY2 - DX2*DY1 > @ THEN PRINT "ANTI-"; 

220 PRINT "CLOCKWISE": STOP 


(4, 2,0) X(-1,2,0) =(0,0, 10) 
(-1, 2, 0) X (6, —3, 0) = (0, 0, 15) 
(—6, —3,0) XG, ay, 0) = (0,0, 15) 


(3,-1,0) X(4,2,0)  =(0,0, 10) 


are all positive, so the orientation of the polygon is anti-clockwise. But be care- 
ful, if you lose this consistent order for calculating the vector product you can 
get the wrong answer. For example 


(—6, —3,0) X(4,2,0) =(0,0,0) — the lines are parallel! 
or (-1,2,0) X(3,—1,0)=(0,0,—5) — we have taken the edges out of 
sequence 


Complete Programs 


I. Listing 7.1 (intersection of line and plane). Data required: a base vector 
(B(1), B(2), B(3)) and direction vector (D(1), D(2), D(3)) for the line, a 
normal (N(1), N(2), N(3)) and constant K for the plane. Try (1, 2, 3), 
(1,1, —1),(1, 0, 1) and 2 respectively. 

II. Listing 7.2 (intersection of two lines). Data required: a base and direction 
vectors for the two lines. (B(1), B(2), B(3)) and (D(1), D(2), D(3)), and 
(C(1), C(2), C(3)) and (EC), E(2), EG)). Try C1, 2, 3), , 1, —1), and 
(—1, 1, 3), 1, 0, 1). 

II. Listings 7.3 and 7.4 (main program, ‘vecprod’ and ‘dotprod’). Data required: 
two vectors (L(1), L(2), L(3)) and (M(1), M(2), M(3)). Try (1, 2, 3), 
dd, 1, —1). 


142 Advanced Graphics with the Sinclair ZX Spectrum 


IV. Listings 7.5 (‘inv’) and 7.6 (intersection of three planes), Data required: 
normal (N(I, 1), NU, 2), NC, 3)) and constant K(I) for the three planes, 
1 <1 <3. Try (1, 2, 3), 0,(1, 1, —1), 1,(1, 0, 1), 2. 

V. Listings 7.5 (‘inv’) and 7.7 (intersection of two planes). Data required: 
normal (N(I, 1), Nd, 2), NU, 3)) and constant K(I) for the two planes, 
1 <I <2. Try (1, 2, 3), 0, (1, 1, -1), 1. 

IV. Listing 7.8 (orientation of 2-D triangle). Data required: the vertices 
(X(1), YO)), 1 <1 <3. Try (1, 2), (2,3) and (1, 1). 


8 Matrix Representation of 
Transformations on Three- 
dimensional Space 


In chapter 4 we saw the need for transforming objects in two-dimensional space. 
When we draw three-dimensional pictures there will be many times when we need 
to make the equivalent linear transformations on three-dimensional space. As in 
the lower dimension, there are three basic types of transformation: translation, 
scaling and rotation. We shall represent transformations as square matrices (now 
they will be 4 X 4). A general point in space relative to a fixed coordinate triad, 
the row vector (x, y, z), must be considered as a four-rowed column vector 


me NS & 


All the operations on matrices (addition, scalar multiple, transpose, premulti- 
plication of a column vector and matrix product) that we saw in chapter 4 are 
easily extended to cope with 4 X 4 matrices and column vectors by simply 
changing the upper bound of the index ranges from 3 to 4. In this way we can 
generate a routine ‘mult3’ for multiplying two 4 X 4 matrices together. It is 
exactly equivalent to routine ‘mult2’ in the two-dimensional case, and for the 
very same reasons. The routine multiplies matrix A by matrix R giving matrix B, 
which is then copied into R. We also need the routine ‘idR3’, which sets R to 
the identity matrix (see listing 8.1). 

Consider the case of a general linear transformation on points in three- 
dimensional space. A point (x, y, z) — ‘before’ — is transformed into (x’, y’, z') 
-~ ‘after’ — according to three linear equations 


x'=Ay,Xxt+Aq2 X ytAi3XZ+Ata4 
y'=Aq, X X4+Aq2 XY +A23X Z+Ar, 
z'=A3, X X+Agq X VtAz3X Z+A54 


and as usual we add the extra equation 
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Listing 8.1 


9100 REM mul ts 

97@7 REM IN =: AC4,4),R(4,4) 
9182 REM OUT : R(4,4) 

9110 FOR T= 14 704 

9120 FOR J = 1 70 4 

9130 LET AR = @ 

9149 FOR K =1 T0 4 

915@ LET AR = AR + ACI,K)*R(K,<) 
168 NEXT K 

9170 LET BCI,J) = AR 

9188 NEXT J 
$198 NEXT I 
$200 FOR I = 
9212 FOR J = 
9220 LET RCI, 
9230 NEXT J 
9248 NEXT I 
9250 RETURN 


9300 REM idR3 

9302 REM OUT : R(4,4) 
9312 FOR T= 1 10 4 
9328 FOR J = 1 TO 4 
9338 LET R(I,J) = @ 
9348 NEXT J 

9350 LET R(1,I) = 1 
936 NEXT I 

9370 RETURN 


L=Ag, X xt+Ag2 X V+Aqzg X Z+Aag 


which if it is to be true for all x, y and z means Ay, =Aqz =Aqg3 =OandAgg 
=]. 

Then the equations may be written as a matrix equation where a column 
vector representing the ‘after’ point is the product of a matrix and the ‘before’ 
column vector 


ah x 
y' -({ Aa Azz Az3 Ara x{ 7 
z Zz 
1 1 


So if we store the transformation as a matrix, we can transform every required 
point by considering it as a column vector and premultiplying it by a transforma- 
tion matrix. As before, transformations may be combined simply by obeying the 
sequence of transformations in order. If their equivalent matrices are A, B, C.. .., 
L, M, N, then the matrix equivalent to the combination is VX MX LX...X 
C X BX A. Remember the order. Since we are premultiplying a column vector, 
then the first transformation appears on the right of the matrix product and the 
last on the left. 
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Translation 


Every point to be transformed is moved by a vector (TX, TY, TZ) say. This 
produces the following equations relating the ‘before’ and ‘after’ coordinates 


x'=1xxtOx ytOxz+TX 
y =Oxxt+1x ytOxz+TY 
Z=Oxxt0x yt1lxzt+TZ 
so that the matrix describing the translation is 
0 0 
10 LY. 
0 1 
0 0 


oo o — 


The routine ‘tran3’ for producing such a matrix A, given the parameters TX, TY 
and TZ is given in listing 8.2. 


Listing 8.2 


9820 REM tran3 

9001 REM IN =: TX,TY,TZ 
9802 REM OUT : A(4,4) 
9812 FOR T=1 T04 
9820 FOR J = 1704 
9030 LET ACI,J) = 8 
904@ NEXT J 

9050 LET ACI,I) = 1 
9068 NEXT I 

9070 LET AC1,4) = TX: LET AC2,4) = TY: LET ACGS,4) = TZ 
9080 RETURN 


Scaling 


The x-coordinate of every point to be transformed is scaled by a factor SX, the 
y-coordinate by SY and the z-coordinate by SZ, thus 


x’ =SXxxt+ Oxy+ Oxzt+0 
y= Oxxt+SYxyt+ O0xz+0 
z= Oxxt Oxyt+SZxzt+0 


giving the matrix 


SX 0 0 0 
0 sy. 0 6 
0 0 SZ 0 
Or -0 0. 1 
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Usually the scaling values are positive, but if any of the values are negative then 
this leads to a reflection as well as (possibly) scaling. For example, if SX = —1 
and SY = SZ = 1 then points are reflected in the y/z plane through the origin. A 
routine ‘scale3’ to produce such a scaling matrix A given SX, SY and SZ is given 
in listing 8.3. 


Listing 8.3 


8900 REM scale3 

8981 REM IN : SX,SY,SZ 
8902 REM OUT : AC4,4) 
8910 FOR T= 1 T0 4 
8920 FOR J = 1 T04 
8930 LET AC(I,J) = @ 
8948 NEXT J 

8950 NEXT I 

8960 LET AC1,1) = SX: LET A(2,2) = SY: LET A(3,3) = SZ 
8970 LET A(4,4) = 1 
898@ RETURN 


Rotation about a Coordinate Axis 


In order to consider the rotation about a general axis p + yq by a given angle, it 
is first necessary to simplify the problem by considering rotation about one of 
the coordinate axes. 


z-axis into page y-axis into page x-axis into page 


(a) (b) (c) 
Figure 8.1 
(a) Rotation by an angle @ about the x-axis 


Referring to figure 8.1c, the axis of rotation is perpendicular to the page (the 
positive x-axis being into the page), and since we are using left-handed axes the 
figure shows the point (x’, v’, z’) resulting from the transformation of an arbitrar 
point (x, y, z). We see that the rotation actually reduces to a two-dimensional 
rotation in the y/z plane passing through the point; that is, after the rotation the 
x-coordinate remains unchanged. Using the ideas explained in chapter 4 we have 
the following equations 
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x'=x 
y =cos@ x y —sin@ xz 
z’=sin@ xy t+cos6@ xz 


and thus the matrix is 


mv oG 0 Oo 
0 cos@ -siné 0 
0 sin @ cos @ 0 
0 0 Ome #1 


(b) Rotation by an angle @ about the y-axis 


Referring to figure 8.1b, we now have the positive y-axis into the page and, 
because of the left-handedness of the axes, the positive z-axis is horizontal and 
to the right of the origin while the positive x-axis is above the origin. This leads 
us to the equations 


x'=sin@ x zt+cos@x x 
Y 
ae a 


z'=cos@x z—sin@x x 


which gives the matrix 


cos@ O sing 0 
0 1 Oo O 
—sin@ 0 cos@ 0 
0 oO D> A 


(c) Rotation by an angle @ about the z-axis 
Referring to figure 8.1¢ we get the equations 


x'=cos@x x —sin@x y 
y'=sin 0x x +cos@x y 
z=z 


and the matrix 


cos@ —sin @ 
sin 0 cos 6 
0 0 
0 0 


O-m GQ © 
- OC O° 
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A subprogram ‘rot3’ to produce such a matrix A, given the angle THETA and 
the axis number AXIS (AXIS = 1 for the x-axis, AXIS = 2 for the y-axis and 
AXIS = 3 for the z-axis) is given in listing 8.4. 


Listing 8.4 


8600 REM rot3 

8601 REM IN : THETA,AXIS 

8602 REM OUT : AC4,4) 

8612 FOR T= 1 104 

8628 FOR J = 1 TO 4 

8632 LET ACI,J) = 0 

8649 NEXT J 

8650 NEXT I 

8660 LET A(4,4) = 1: LET ACAXIS,AXIS) = 1 

867@ LET AX1 = AXIS + 1: IF AX1 = 4 THEN LET AX1 = 14 
8688 LET AX2 = AX1 + 1: IF AX2 = 4 THEN LET AX2 = 1 
8698 LET CT = COS THETA :LET ST = SIN THETA 

8700 LET ACAX1,AX1) = CT: LET ACAX2,AX2) = CT 

8712 LET ACAX1,AX2) = -ST: LET AC(AX2,AX1) = ST 
8720 RETURN 


Inverse Transformations 


Before we can consider the general rotation transformation, it is necessary to 
look at inverse transformations. An inverse transformation returns the points 
transformed by a given transformation back to their original position. If a trans- 
formation is represented by a matrix A, then the inverse transformation is given 
by matrix A~!, the inverse of A. There is no need to explicitly calculate the 
inverse of a matrix using such techniques as the Adjoint Method (listing 7.5): we 
can use listings 8.2, 8.3 and 8.4 with parameters derived from the parameters of 
the original transformation 


(1) A translation by (TX, TY, TZ) is inverted with a translation by (-TX, —TY, 
—TZ); 

(2) a scaling by SX, SY and SZ is inverted with a scaling by 1/SX, 1/SY and 
1/SZ; 

(3) a rotation by an angle @ about a given axis is inverted with a rotation by an 
angle —@ about the same axis; 

(4) if the transformation matrix is the product of a number of translation, 
scaling and rotation matrices A X BX CX ...X L X MX N, then the inverse 
transformation is 


NK Me iL hoe ee 4 
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Rotation of Points by an Angle y about a General Axis p + uq 


Assume p = (PX, PY, PZ) and q = (QX, QY, QZ). We break down the task into a 
number of subtasks 


(a) We translate all of space so that the axis of rotation goes through the origin. 
This is achieved by adding a vector —p to every point in space with a matrix F 
say, which is generated by a call to ‘tran3’ with parameters TX = —PX, TY = —PY 
and TZ = —PZ. The inverse matrix F~* will be needed later and is found by a call 
to ‘tran3’ with parameters PX, PY and PZ. After this transformation the axis of 
rotation is the line O + uq passing through the origin. 


100 —Px A 00 PX 
401 6 Sy Peer {od © By 
oot 2 Perro 

000 1 0001 


(b) We then rotate space about the z-axis by an angle —aw, where (ALPHA =) a= 
tan? (QY/QX), given by the matrix G. The matrix is generated by a call to 
‘rot3’, setting THETA = —ALPHA and AXIS = 3, and the inverse matrix G7! by 
a call to ‘rot3’ with THETA = ALPHA and AXIS = 3. At this stage the axis of 
rotation is a line lying in the x/z plane passing through the point (v, 0, QZ). 


Qx QY 0 0 QX -QY 0 0 
geo] -Oy Gk GO 22, TOY Ox 0-0 
a0 0 & 0 vl 0 0 vO 
0 0 Ov 0 0.4 0-9 


where v is the positive number given by v? = QX? + QY?. 

(c) We now rotate space about the y-axis by an angle —68, where (BETA =) @ = 
tan! (v/QZ), given by the matrix H. This matrix is generated by a call to 
‘rot3’ with parameters AXIS = 2 and THETA = —BETA, and the inverse matrix 
H~ by acall to ‘rot3’ with parameters AXIS = 2 and THETA = BETA. 


QZ 0 -v 0 QZ 0 »v 0 

1 0 w 00 s ] oO wi 0 B 
H= a H 1. 

w y 0 QZ 0 w\—vy 0 QZ 0 

0 0 Ow 0 0 Ow 


where w is the positive number given by w? = vy? + QZ? = QX? + QY? + QZ?. 
So the point (v, 0, QZ) is transformed to (0, 0, w), hence the axis of rotation is 
along the z-axis. 

(d) We can now rotate space by an angle y (GAMMA) about the axis of rotation 
using matrix W generated by ‘rot3’ (with AXIS = 3 and THETA = GAMMA). 
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cosy —siny O 1 
_{siny cosy 0 1 
csi a 10 
0 Or Oa 


(e) We need to return the axis of rotation to its original position so we multiply 
H~!,G™ and finally F—?. 


Thus the final matrix P that rotates space by the angle y about the axis 
ptuqisP=F-! XG! X H"! X WX HX GX F. Naturally some of these 
matrices may reduce to the identity matrix in some special cases, and can be 
ignored. For example, if the axis of rotation goes through the origin then F and 
F~ are identical to the identity matrix I, and can be ignored. 

So it is possible te write a special routine ‘genrot’ (listing 8.5) that achieves 
this rotation and returns the required matrix P given GAMMA, (PX, PY, PZ) and 
(QX, QY, QZ). 


Listing 8.5 


5820 REM genrot 

5801 REM IN : PX,PY,PZ,QX,QY,QZ,GAMMA,R(4,4) 

5802 REM OUT : R(4,4) 

5809 REM place origin on axis of rotation. 

5810 LET TX = =PX: LET TY = -PY: LET TZ = -PZ: GO SUB tran3: GO SUB mult3 

5819 REM rctate axis of rotation into x/z plane. 

5820 LET AX = @X: LET AY = Q@Y: GO SUB angle 

5830 LET ALPHA = THETA: LET THETA = -THETA: LET AXIS = 3: GO SUB rot3 
: GO SUB mult3 

5839 REM rotate axis of rotation onto z-axis. 

5840 LET AX = QZ: LET AY = SQR (QX*QX + QY*QY): GO SUB angle 

585@ LET BETA = THETA: LET THETA = -THETA: LET AXIS = 2: GO SUB rot3 
: GO SUB mul t3 

5859 REM rotate by GAMMA about axis of rotation. 

586@ LET AXIS = 3: LET THETA = GAMMA: GO SUB rot3: GO SUB mult3 

5869 REM replace axis back to original position. 

5870 LET AXIS = 2: LET THETA = BETA: GO SUB rot3: GO SUB mult3 

5880 LET AXIS = 3: LET THETA = ALPHA: GO SUB rot3: GO SUB mult3 

589@ LET TX = PX: LET TY = PY: LET TZ = PZ: GO SUB tran3: GO SUB mult3 

5980 RETURN 


Example 8.1 
What happens to the points (0, 0, 0), (1,0, 0), (0, 1, 0), (0, 0, 1) and (1, 1, 1) if 
space is rotated by 7/4 radians about an axis (1,0, 1) + u(3, 4, 5). 

Using the above theory we note that 


156: Oo 1001 
me ts ge ae 1+./0100 
we, a a ae . é-¢ 1.1 

6000 1 0001 
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3400 a 240-6 
ee Se en a a Tt A 5350.0 
C=slo0s50 olor eg Set 
co 06.5 So 0.95 
fi VS eke - 0 i ee 
eet Oe Oe Se ae ee oe, 
wl: Ged 0 va \-) O01 6 
0 0 0 v2 0 004 
ee ee a 
eB 0 O 
0 0 2 0 and 
0 0 0 v2 
41+ %/2 -12—13/2 -15+35/2 -26+ 6/2 
a! ~12+37/2 34+16/2 -20+ 5/2 32-42V2 
50/2 \-15-— 5V2 -20+35/2 25+ 25/2 -10 + 30/2 
0 0 0) 50/2 


where P= F-'! X G-' XH" X WX HX GX Fis the matrix representation of 
the required transformation. Premultiplying the column vectors equivalent to 
(0,0, 0), (1, 0, 0), (0, 1, 0), (0, 0, 1) and (1, 1, 1) by P and changing the resulting 
column vectors back into row form and taking out a factor 1/50\/2 gives the co- 
ordinates (—26 + 6/2, 32 — 42/2, —10 + 30,/2), (15 + 15s/2, 20 — 5/2, 
—25 +25y/2), (—38 — 7/2, 66 — 26/2, —-30 + 65s/2), (—41 + 41/2, 12 — 37/2, 
15 + 55y/2) and (—12 + 37/2, 34 + 16/2, —20 + 85,/2) respectively. Naturally 
translating and rotating space should leave relative positions unchanged; in 
particular the angles between direction vectors should be unchanged (the same 
cannot be said about the scaling transformation, which in general does alter 
relative positions). In the original system the three relative positions from 
(0,0, 0) to (1, 0, 0), (0, 1, 0) and (0, 0, 1) respectively, are mutually perpen- 
dicular (that is, the dot product of pairs of these directions should be zero). 
The dot product of the directions in the transformed system should also be zero: 
the three directional vectors (with 1/50\/2 factored out) are (41 + 9/2, 
—12 + 37/2, —15 — 5/2), (12 — 13-2, 34 + 16./2, —20 + 35/2) and 
(—15 + 35x/2, —20 + 5/2, 25 + 25y/2), and the dot product of any pair is zero. 
Similarly the dot product of the direction vector from the origin to (1, 1, 1) 
in the original system, taken with any of the original directions above, give the 
same value (= 1). This is also true in the transformed system: the fourth direction 
is (14 + 31/2, 2 + 58/2, —10 + 55,/2), and when we take the dot product with 
each of the three direction vectors above we get the value 5000, which, when we 
take into account the factor (1/50\/2)’ , gives the value 1. 
A program that reads in the axis of rotation (PX, PY, PZ) + u(QX, QY, QZ) 
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and the angle GAMMA, and rotates any point (XX, YY, ZZ) about this axis by 
angle GAMMA is given in listing 8.6. 


Listing 8.6 


129 REM rotation of a point about a giver axis 
118 DIM A(4,4): DIM B(4,4): DIM R(4,4) 
120 DIM P(3): DIM A$(8) 
138 INPUT "BASE VECTOR OF AXIS “,"C"sPX3","sPY32","ZPZ3")" 
148 PRINT AT 1,0;"BASE VECTOR OF AXIS ","(";PX;","ZPY3","3PZ;°)" 
15@ INPUT "DIRECTION VECTOR OF AXIS ","(";QX;",";QY;",";Q7;")" 
160 PRINT AT 4,0;"DIRECTION VECTOR OF AXIS ","("ZQX;","ZQY5","7QZ;")" 
178 INPUT "ANGLE OF ROTATION ";GAMMA 
180 PRINT AT 7,@;"ANGLE OF ROTATION ";GAMMA 
198 LET muLt3 = 9100: LET idR3 = 9300: LET rct3 = 8680 
: LET tran3 = 9022: LET angle = 8820: LET genrot = 5800 
198 REM calculate R(4,4) for rotating point by angle GAMMA about an axis 
199 REM with base vector (PX,PY,PZ) and direction vector (QX,@Y,QZ). 
200 GO SUB idR3: GO SUB genrot 
210 PRINT AT 14,0;"BECOMES" 
219 REM input and transform point (XX,YY,ZZ). 
220 INPUT "POINT VECTOR’, "("ZXXz","ZYY 3", "72250" 
258 PRINT AT 12,0;"POINT C°ZXK2","2YV 2" "227 5") "5 
240 LET P(1) = XX*RC1,1) + YY*R(1,2) + ZZ*R(1,3) + R(1,4) 
250 LET PC2) = XX*R(2,1) + YY*RC2,2) + ZZ*R(2,3) + R¢2,4) 
26@ LET P(3) = XX*R(3,1) + YY*RO(3,2) + ZZ*R(3,3) + R(3,4) 
269 REM tidy up output. 
270 PRINT AT 16,0;"("; 
282 FOR I = 1 TO 3: LET AS = STR$S PC{I): FOR J = 1 TO 8 
298 IF AS(J) <> " " THEN PRINT AS(J); 
300 NEXT J: IF I <> 3 THEN PRINT ”,"; 
318 NEXT I: PRINT ")",, 
320 GO TO 220 


Exercise 8.1 

Experiment with these ideas. You can always make a check on your final trans- 
formation matrix by considering simple values as above, and you can use the 
previous listings to check your answer. It is essential that you are confident in 

the use of matrices, and the best way to get this confidence is to experiment. You 
will make lots of arithmetic errors initially, but you will soon come to think of 
transformations in terms of their matrix representation, and this will greatly ease 
the study of drawing three-dimensional objects. 


Exercise 8.2 

As with the two-dimensional case, we note that the ‘bottom row’ of all trans- 
formation matrices is always (0, 0,0, 1), and is of no real use in calculations. It 
is added only to form square matrices, which are necessary for the formal 
definition of matrix multiplication. We can adjust this definition, and that of the 
multiplication of a matrix and a column vector, so that instead we use only the 
top three rows of the 4 X 4 matrices (in chapter 4 we used the top two rows of 
3 X 3 matrices in listings 4.2a, 4.3a, 4.4a and 4.5a). Change listings 8.1, 8.2, 8.3 
and 8.4 accordingly. 
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Exercise 8.3 

You will have noticed that the routine ‘rot3’ is usually called with THETA 
generated by ‘angle’, which uses values AX and AY as input parameters. ‘rot3’ 
calculates the cosine and sine of angle THETA, but we know that these are 
AX//(AX? + AY*) and AY/\/(AX? + AY”) respectively. Write another 
rotation routine ‘rotxy’ that calculates the rotation matrix directly from AX 
and AY without resorting to ‘angle’. 

Also we note that the first stage of the ‘rot’, ‘tran’, ‘scale’ and ‘idR’ routines 
consists of clearing an array. This can be achieved more efficiently on the 
Spectrum by reDIMensioning the array. Furthermore it is often faster to ex- 
plicitly assign values rather than calculate them inside FOR. . .NEXT loops. 


Exercise 8.4 

Again in chapter 4 we noted that some writers use row rather than column 
vectors, and postmultiply rather than premultiply. We decided against this inter- 
pretation, so that the matrix of a transformation corresponds directly with the 
coefficients of the transformation equations. In this other interpretation it is the 
transpose of the matrix that is identical to the coefficients. It is useful to be 
aware of this other method, so use it to rewrite all the programs given in this 
chapter (and the remainder of this book). Remember though, it is not important 
which method you finally decide to use, as long as you are consistent. We use 
the column vector notation because we have found that it causes less confusion 
in the early stages of learning the subject! 


Comple Programs 


I. All the listings in this chapter, 8.1 (‘mult3’ and ‘idR3’), 8.2 (‘tran3’), 8.3 
(‘scale3’), 8.4 (‘rot3’), 8.5 (‘genrot’), 8.6 (main program) and listing 3.4 
(‘angle’). Required data: base vector (PX, PY, PZ), direction vector (QX, QY, 
QZ) of the axis of rotation and the angle GAMMA, together with any number 
of three-dimensional coordinates (XX, YY, ZZ). Try (0,0, 0), (1, 1, 1) and 
n/4, and points (1, 0, 1), (1, 1, 1), (1, 2, 3). 


9 Orthographic Projections 


We may now address the problem of drawing views of three-dimensional objects 
on our (necessarily) two-dimensional graphics screen. The simple method we 
describe here is a direct generalisation of the method introduced in chapter 4 for 
two-dimensional objects. Again it involves the use of (up to) three positions. To 
illustrate these ideas we first give a brief outline, and then expand on this using 
numerous pictorial and numerical examples. We start by defining an arbitrary but 
fixed triad of axes in space that we call the ABSOLUTE system. Then, as in the 
two-dimensional case, we consider three positions: (1) the SETUP, (2) the 
ACTUAL and (3) the OBSERVED position. 


(1) The SETUP Position 


Most scenes will be composed of simple objects (for example, cube(s), see ex- 
ample 9.1) that are set at a peculiar position and orientation in space. It is very 
inefficient to calculate by hand the complicated coordinates of every vertex of 
these objects and input them into the program. Instead we look at each object in 
turn and initially define it in an elementary way relative to the ABSOLUTE triad, 
usually setting it about the origin. The information required will be that of 
vertices (x-coordinate, y-coordinate and z-coordinate), and perhaps lines (that 
join. pairs of vertices) or (later when we consider hidden line and hidden surface 
algorithms) facets, which are polygonal planar areas bounded by the above- 
mentioned lines. This elementary definition of the object is called its SETUP 
position. We could have other information also, such as the colour of the object. 


(2) The ACTUAL position 


We use the matrix techniques of the last chapter to generate a matrix that will 
move the object from its SETUP position to its required ACTUAL position 
relative to the ABSOLUTE axes. We shall call this SETUP to ACTUAL matrix P. 
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(3) The OBSERVED Position 


Viewing an object in three-dimensional space naturally involves an observer (the 
eye — and note only one eye!) placed at a position (EX, EY, EZ) relative to the 
ABSOLUTE axes looking in a fixed direction: this direction of view can be 
uniquely determined by any other point on the line of sight, (DX, DY, DZ) say. 
The head can also be tilted, but more of that later. What the eye sees when look- 
ing at a three-dimensional object is a projection of the vertices, lines (and facets) 
of the object on to a (two-dimensional) view plane that is normal to the line of 
sight. In order to calculate such projections we must standardise our approach. 
We use matrix methods to transform all the points in space so that the eye is 
placed at the origin, and the line of sight is along the positive z-axis. This is the 
OBSERVED position, and the matrix that transforms the ACTUAL to OBSERV- 
ED position is called Q throughout this book. The method for calculating Q will 
be dealt with in detail later, but for the time being we assume that the eye is 
already at the origin looking along the z-axis: so in this simple case Q is the 
identity matrix. 

When all the points in space have been moved into this OBSERVED position, 
we note that the view plane is now parallel to the x/y plane through the origin. 
Having moved the eye into the correct position, we are now ready to project the 
object on to the view plane. But note, as yet we have neither defined the position 
of the view plane (we have only its normal), nor have we described the type of 
projection of three-dimensional space on to the plane. These two requirements 
are closely related. In this book we shall consider two possible projections: in a 
later chapter we shall deal with the perspective projection, but first we introduce 
the simplest projection, the orthographic. 


The Orthographic Projection 


Nothing could be simpler. In the orthographic projection we can set the view 
plane to be any plane with normal vector along the line of sight. When trans- 
formed into the OBSERVED position, the view plane will be any plane parallel 
to the x/y plane given by the equation z = 0. For simplicity we take the x/y 
plane through the origin. The vertices of the object are projected on to the view 
plane by the simple expedient of setting their z-coordinates to zero. Thus any 
two different points in the OBSERVED position, (x, y, z) and (x, y, z’) say 
(where z #2’), are projected on to the same point (x, y, 0) on the view plane. 
Then we identify the x/y values on the plane with points in the graphics screen 
coordinate system (usually centred on the screen) using the methods of chapter 
2. Once the vertices have been projected on to the view plane and then on to the 
screen, we can construct the projection of lines and facets. These are related to 
the projected vertices in exactly the same way as the original lines and facets are 
related to the original vertices. 
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Before considering in detail the general case where the eye and direction of 
view are arbitrarily positioned, we take an elementary example to demonstrate 
the orthographic projection. 


Example 9.1 
Use the above ideas to draw an orthographic projection of a cube. Figures such 
as those in figure 9.1 are called wire diagrams or skeletons (for obvious reasons). 

In the SETUP position the cube may be thought to consist of eight vertices 
(1,1,1),0,1,-), 0, -1, -D, 0, -1, 1), G1, 1, 1), C1, 1, -1), (-1, -1, -1) 
and (—1, —1, 1): vertices labelled numerically 1 to 8. The twelve lines that form 
the wire cube join vertices 1 to 2,2 to 3,3 to4,4 to 1;5 to6,6to7,7 to 8, 

8 to1;1to5,2to6,3to7,4to8. 

Figure 9.1a shows the simplest possible example of an orthographic projec- 
tion of the cube, where even the SETUP to ACTUAL matrix is the identity 
matrix; that is, the cube stays in its SETUP position. We get a square: pairs of 
parallel lines from the front and back of the cube project into the same line on 
the screen. We put a “+” in these diagrams to show the position of the z-axis in 
the OBSERVED position (into the screen). 

Figure 9.1b shows the same cube drawn after the following three transforma- 
tions place it in its ACTUAL position. 


(a) Rotate the cube by an angle a = —0.927295218 radian about the z-axis — 
matrix A. This example is contrived so that cos a = 3/5 and sin a= —4/5, 
ensuring that the rotation matrices consist of uncomplicated elements. 

(b) Translate by the vector (—1, 0, 0) — matrix B. 

(c) Rotate by an angle —e about the y-axis — matrix C. 


The SETUP to ACTUAL matrix is thus P = C X B X A, where 


3/5 4/5 0 0 7G 3/5 0 4/5 0 
A= {-4/5 3/5500) B=f/0 10 0\ c=/{ 01 00 
jc 0 1 001 0 4/5 0 3/5 0 
Oo 000 1 000 1 


and P is given by 


9 12 20 -15 
Pa (9615 6. 0 
eo 6. 152 20 

0 0 0. 25 


So the above eight vertex coordinate triples in the SETUP position are trans- 
formed into the following eight ACTUAL coordinate triples: (26/25, —5/25, 
7/25), (-14/25, —5/25, —23/25), (—38/25, —35/25, 9/25), (2/25, —35/25, 
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39/25), (8/25, 35/25, 31/25), (32/25, 35/25, 1/25), (56/25, 5/25, 33/25), 
(—16/25, 5/25, 63/25). 
For example (1, 1, 1) is transformed to (26/25, —5/25, 7/25) because 


1/9 12 2% -15 1 1 (2% 
Seon 16 Gl ba ha Nee aes 
25 112 -16 15 20 1] 717 

0 0 0 25 1 25 


Since the ACTUAL to OBSERVED matrix Q is the identity matrix, the pro- 
jected coordinates on the view plane are thus (26/25, —5/25), (-14/25, —5/25), 
(—38/25, —35/25), (2/25, —35/25), (8/25, 35/25), (—32/25, 35/25), (56/25, 
5/25), (—16/25, 5/25). We can place these points on the screen and join them 
with lines in the same order as they were defined in the SETUP cube. 


+ ——_——_* . é A \ 


(a) (b) 


Pe 


(c) (d) 


Figure 9.1 


158 Advanced Graphics with the Sinclair ZX Spectrum 
Construction of the ACTUAL to OBSERVED Matrix Q 


We assume that the eye is at (EX, EY, EZ) relative to the ABSOLUTE axes, look- 
ing towards the point (DX, DY, DZ). The OBSERVED position is achieved in the 
following sequence of steps. 


(1) A matrix D translates all the points in space by a vector (-DX, -DY, —DZ) 
so that now the eye is at (EX — DX, EY — DY, EZ — DZ) = (FX, FY, FZ) say, 
looking towards the origin. 


1 0 
Ort 
0 0 
0 0 


(2) A matrix F changes (FX, FY, FZ) into (r, 0, FZ) by rotating space by an 
angle —a where a= tan”! (FY/FX) about the z-axis. Here r? = FX? + FY? and 
r>0. 


FX FY 0 0 
—FY FX 0 0 
r 0 
Or 


(3) A matrix F transforms (7, 0, FZ) into (0, 0, —s) by rotating space by an angle 
m — 6 about the y-axis, where 9 = tan”! (r/FZ). Here s* =r? + FZ? = FX? + 
FY? +FZ? ands >0. 


—FZ 0 r 0O 
A 0s 00 
ae ap DBZ 0 
0 O G s 


(4) The transformation thus far places the eye at (0, 0, —s) on the negative z- 
axis looking towards the origin and at the same distance from it (s) as (EX, EY, 
EZ) was from (DX, DY, DZ). We now generate a matrix G, which moves the 
eye to the origin. 


oroo°o 


0 
0 
5 
1 


ooo = 
ooroO 


(5) If in example 9.1, we now premultiply P= C X B X A by our first approxi- 
mation to the ACTUAL to OBSERVED matrix Q (= G X F X E X D) to find 
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the SETUP to OBSERVED matrix R=QX P=GXFXEXDXCXBXA, 
we draw figure 9.1c by orthographic projection. This view is not really satisfac- 
tory because the matrix Q places the cube at an arbitrary orientation within the 
view plane. It is much better to standardise our view, and one of the most 
popular ways is to maintain the vertical, that is a line that was vertical (or paral- 
lel to the y-axis) in its ACTUAL position remains vertical after transformation 
by Q into its OBSERVED position. Take the vertical line from (DX, DY, DZ) to 
(DX, DY + 1, DZ). Because of this peculiar construction, we note that inter- 
mediate matrix K (F X E X D) transforms this line into one joining (0, 0, 0) to 
(K(1,2), K(2,2), K(3,2)) = (p, g, r), say. So if we further rotate about the z-axis 
by an angle B= tan™! (K(1, 2)/K(2, 2)) = tan~! (p/q) = tan—! (—FY x FZ/ 

(s x FX)) using a matrix H, before multiplying by G, then the vertical is 
maintained 


q p00 
l 00 
H=a12 @ Dag ae 
slo oro where ft* =p* +q 
0-100 27 
and thus 
p q -p 0° 0% Pp 0 
q\_![7 @¢@ 00 et a 
- r P02 UP r 0 : r r 
1 0 O04 ] 1 


Thus the complete transformation (figure 9.1d) is achieved by the matrix 
R=QXP=GXHXFXEXDXCXBXA,and the projection of the line 
joining points (DX, DY, DZ) to (DX, DY + 1, DZ) is the line joining (0, 0) to 

(0, f) on the screen; that is, the vertical. Matrix G does not affect the x/y values. 
Note that this technique works in all cases except where (EX, EY, EZ) is vertically 
above (DX, DY, DZ) to start with, and naturally maintaining the vertical makes 
no sense. The routine ‘look3’ (listing 9.1), given (EX, EY, EZ) and (DX, DY, 
DZ), generates the ACTUAL to OBSERVED matrix in the steps shown above, 
and at each step premultiplies the matrix R: so at the end of the process, R will 
hold its original matrix value premultiplied by Q. If we wish to store Q explicitly, 
then we need first to set R to the identity matrix (using ‘idR3’), then call 
‘look3’, and finally copy array R into array Q. Routine ‘look3’ can be radically 
reduced if we assume that the eye always looks at the origin (that is, DX = DY = 
DZ = 0). Furthermore with the orthographic projection the OBSERVED position 
of the eye need not be at the origin, it merely needs to be on the z-axis: again 

the routine can be cut down. We give the most general case, which will be 
essential for later perspective projections. 
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Listing 9.1 


8200 REM Look3 

8210 INPUT "CEX,EY,EZ) "ZEX;","ZEY;","3EZ 

822@ INPUT "(DX,DY,DZ) ";DX;","sDY3","3DZ 

8229 REM move origin to (DX,DY,DZ). 

8230 LET TX = ~DX: LET TY = -DY: LET Tz = ~DZ 

8248 GO SUB tran3: GO SUB mult3 

8249 REM move eye onto negative z-axis, looking at the origin. 

8250 LET FX = EX - DX: LET FY = EY — DY: LET FZ = EZ - DZ 

8260 LET AX = FX: LET AY = FY: GO SUB angle 

8270 LET AXIS = 3: LET THETA = ~THETA: GO SUB rot3: GO SUB mult3 
8280 LET AX = FZ: LET AY = SQR (FX*FX + FY*FY): GO SUB angle 

8298 LET AXIS = 2: LET THETA = PI - THETA: GO SUB rot3: GO SUB mult3 
8299 REM maintain vertical. 

8300 LET TX = @: LET TY = @: LET TZ = SQR (FX*FX + FY*FY + FZ*FZ) 
8318 LET AX = TZ*FX: LET AY= -FY*FZ: GO SUB angle 

8320 LET AXIS = 3: GO SUB rot3: GO SUB mult3 

8329 REM move eye to the origin: space is now in the OBSERVED position. 
8330 GO SUB tran3: GO SUB mult3 

8348 RETURN 


If required, we can extend this program to deal with the situation where the 
head is tilted through an angle y from the vertical. This is achieved by further 
rotating space by —y about the z-axis. Thus matrix H should then rotate about 
the z-axis by an angle 6 — y. 

The construction of the ACTUAL to OBSERVED matrix is obviously inde- 
pendent of everything other than the position of the eye, line of sight and the 
tilt of the head. So if we wish to view a series of objects from the same position, 
we can store Q and use it repeatedly for placing each object. 


How to Define an Object 


It is now time to deal with the problem of representing objects to the computer. 
There is no definite solution, it really depends on what is being drawn and how 
it is projected. In this section we describe various ways of setting up a data-base 
to hold the information necessary for drawing any given scene, but make no 
comment on their usefulness. This is considered in the remainder of the book 
where we give examples to illustrate the value of particular methods in different 
situations. We shali be using arrays to hold large sets of data, and so naturally 
the amount of space given to arrays will depend on the amount of information 
required for a scene: be sure that when you declare these arrays there is enough 
space for all the information; if in doubt, overestimate your store requirements. 
Vertices. We will always need to define vertices and other special reference 
points in a scene, and these we store as x, y and z-coordinates in arrays X, Y and 
Z respectively, assuming that if the total number is not known explicitly, then 
this value is calculated as NOV. So there must be space for not less than NOV 
values in each of the three arrays. These vertices may be in the SETUP, ACTUAL 
or OBSERVED position, it depends on the context of the problem. There will 
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also be situations (perspective in particular) when we need to store the x/y-co- 
ordinates of the projections of these NOV vertices — in arrays V and W. Naturally 
this is unnecessary in the case of an orthographic projection of points in the 
OBSERVED position since we can use the values already stored in the X and Y 
arrays. The choice of data-base really depends on the scene and type of projection. 
Lines. We can store information on NOL (say) line segments in the two dimen- 
sional integer array L. The I" line is defined by the integer indices (between 1 
and NOV) of the two points at each end of the line — we store the indices in 
L(1, D and L(2, I). The true coordinate values of the two points at each end of 
the line segment can be found from the X, Y and Z arrays. 

Facets. A facet is a convex polygonal area on the surface of a three-dimensional 
object, and can be defined in a number of ways. Most facets will be triangular or 
quadrilateral, so we usually assume that no facet has greater than six sides to 
minimise waste of store. The NOF facets can be defined in terms of the indices 
of the vertices at their corners in array F; F(I, J) is the index of the I" vertex on 
the J" facet. Naturally if the facet is not hexagonal then some of the values are 
garbage so we need to store array H, the number of vertices/edges on each facet. 
We can also store C, the integer colour code (if any) for each facet; but be care- 
ful, the Spectrum allows only two colours in any one character block. Another 
method is to store the facet in terms of the indices of the lines in the object in 
array F, which would thus refer to array L; F(I, J) would now be the index of 
the I™ line on the edge of the J facet. There are many other methods for 
representing these, and other elements of a three-dimensional object: choose the 
one most suitable to your particular situation. 


Construction Routines and the ‘Building Block’ Method 


For any required object we define a construction routine that needs, as para- 
meters, a matrix R to move vertices into position and any other information 
about the size of the object (if the object is to be stored in the SETUP position 
then naturally no matrix is needed). The routine can then define the vertices, 
lines, facets or any other elements of the object, and use the matrix R to move 
the vertices of the object into the required position. Depending on the context 
of the program, the routine can then either draw the object, or extend a data- 
base containing this information. We shall give examples of both methods. 

We can construct a scene containing a number of similar objects (so the data 
will be in either the ACTUAL or the OBSERVED position). There is no need to 
produce a new construction routine for each occurrence of the object, all we do 
each time is calculate a new SETUP to ACTUAL matrix P, and enter it (for the 
ACTUAL position) or Q X P (for the OBSERVED position) into the same 
routine. Naturally we require one new routine for each different type of object. 

The complete scene is achieved by the execution of a main program (listing 
9.2), which declares all the subroutine labels, then prepares the graphics screen 


162 Advanced Graphics with the Sinclair ZX Spectrum 


using input values of HORIZ and VERT and finally calls a routine ‘scene3’ that 
organises the objects in space and then draws them. The main program below 
will be used in all the three-dimensional graphics programs that follow, so do 
not alter it without very good reason. 


Listing 9.2 


100 REM main program 

110 LET start = 9700: LET setorigin = 9600: LET moveto = 9500 
: LET Lineto = 9400: LET clip = 8400 

120 LET rot3 = 8602: LET angle = 8802: LET scale3 = 890: LET tran3 = 9002 
: LET mult3 = 9198: LET idR3 = 9300 

130 LET scene3 = 6000: LET lLook3 = 8280 

139 REM dimension and centre the graphics area. 

14@ INPUT "HORIZ ",HORIZ,"VERT ",VERT 

15@ GO SUB start 

16@ LET XMOVE = HORIZ*@.5: LET YMOVE = VERT*2.5 

170 GO SUB setorigin 

179 REM set the scene. 

180 GO SUB scene3 

190 STOP 


‘scene3’ declares all the arrays that are required for storing information about 
a scene, together with matrices A, B, R and (perhaps) Q for moving objects into 
position. Any other subroutine labels unique to this scene are also declared. If 
required the values of NOV and NOL (or NOF) are initialised, and these will be 
updated in later construction routines. For each individual object (a ‘block), 
‘scene3’ must calculate a matrix P that moves this block into the ACTUAL 
position, and then call the construction routine using the correct matrix R (per- 
haps SETUP to ACTUAL or SETUP to OBSERVED). All the blocks finally 
construct the finished scene. Sometimes the drawing of the projection is done 
inside the construction routine, or it can be elsewhere in other routines specifi- 
cally designed for special forms of drawing (as in hidden line and hidden surface 
pictures): it depends on what is being drawn and what is required of the view. As 
usual, because of the restriction of not passing array parameters into subroutines, 
we do not normally explicitly generate P and Q, but rely instead on updating 
matrix R. If we require the ACTUAL to OBSERVED matrix then this routine 
calls ‘look3’. Should we need to store Q then we must first call ‘idR3’, which 
sets matrix R to the identity; remember all matrix operations are done via 
matrices A and R, using matrix B to hold intermediate values. 

Always use the clipping version of ‘lineto’ in your programs. It is so easy to 
choose values of HORIZ and VERT that are too small, with the result that part 
of the object goes outside the graphics area. Without the ‘clip’ routine the pro- 
gram will fail. There is a positive reason, however, for making these values small: 
it enables us to zoom in on a small area of a scene, drawing it very large, and all 
the exterior lines will be clipped away. 

Our first example of this method is listing 9.3, which is the ‘scene3’ routine 
needed to construct a picture of a single cube as shown in figure 9.1d. The scene 
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can be viewed from any position with the vertical maintained. We have also a 
construction routine ‘cube’ (listing 9.4) that generates the data for a cube with 
sides of length 2. It places the vertices, eight sets of coordinate triples, in arrays 
X, Y and Z. There is no need to store the lines of the cube explicitly, we get the 
information from a DATA statement and draw the lines straight away. The data 
for figure 9.1d are HORIZ = 6, VERT = 4, (EX, EY, EZ) = (—2, 2, 2) and 

(DX, DY, DZ) = (—1, 0, 0). 


Listing 9.3 


6022 REM scene3/example 9.1 

6012 DIM X(8): DIM Y(8): DIM 2¢8) 

6020 DIM AC4,4): DIM B(4,4): DIM R(4,4) 

6232 LET cube = 6500 

6239 REM calculate the SETUF to ACTUAL matrix R. 

6048 GC SUB idk 

6750 LET THETA = -@.92729522: LET AXIS = 3: GO SUB rot3: GO SUB mult3 
6060 LET TX = -1: LET TY = O: LET TZ = @: GO SUB tran3: GO SUB mult3 
607@ LET THETA = -THETA: LET AXIS = 2: GO SUB rot3: GO SUB muLlt3 
6279 REM change R: premultiply it by the ACTUAL to OBSERVED matrix. 
6082 GC SUB Look3 

6@89 REM call construction routine draw the cube. 

6098 GO SUB cube 

6100 RETURN 


Listing 9.4 


6500 REM cube/ Lines (not stored) 
6581 REM IN : R(3,3) 

ODIO! DATA Td piliee te Loe vipa dis Poe | 
6520 DATE 1,25 2p3y Seon Sele Se6y Gol 
653@ RESTORE cube 

6539 REM input SETUP vertices of cube and move them into OBSERVED POSITION. 
6540 FOR I= 1 TO 8 

655@ READ XX,YY,2Z 

656@ LET X(I1) XX*R(1, 19 + YYaRC1 2) + ZZ*R(1,3) + RC1,4) 

6570 LET YC1) XX*R(Z,1) + YY*R(2,2) + ZZ*R(2,3) + RC2,4) 

€Se2- Ler 261) XX#R(3,1) + YY*R(3,2) + ZZ*R(3,3) + R(3,4) 

€59@ NEXT I 

6599 REM input Line information : draw lines by joining pairs of vertices. 

6620 FOR 2 = 1 TO 12 

6612 READ L1,Lz2 

6620 LET XPT 
6630 LET XPT 
6640 NEXT I 

6650 RETURN 


Vets Klee seg le ot 
, 76, 3,7, 4,8 


2 


w H Mf 


Y{L1): GO SUB moveto 
Y(L2)}: GC SUB Lineto 


SALT ET APT 
X(L2): LET YPT 


ou 
wou 


We can have more than one cube in the scene. For example, if we rewrite 
‘scene3’ as in listing 9.5, keeping all the other routines the same, we would get 
figure 9.2. Note that the X, Y and Z values of the previous cube are overwritten 
in the second call to ‘cube’. Also, because we have the same ACTUAL to 
OBSERVED matrix for both cubes (they have different SETUP to ACTUAL 
matrices) we need to store Q so it can also be used for the second cube. Remem- 
ber Q must premultiply the array P, which moves the second cube into the 
ACTUAL position. The data for figure 9.2 are HORIZ = 9, VERT = 6, (EX, EY, 
EZ) = (3, 2, 1) and (DX, DY, DZ) = (0, 0, 0). 
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Listing 9.5 


6020 REM scene3/figure 9.2 

6010 DIM X(8): DIM Y(8): DIM Z(8) 

6020 DIM AC4,4): DIM B(4,4): DIM R(4,4): DIM Q(4,4) 
6030 LET cube = 6502 

6039 REM draw 1'st cube in OBSERVED position. 

6048 GO SUB idR3: GO SUB Look3 

6250 GO SUB cube 

6859 REM draw 2'nd cube in OBSERVED position. 

6060 FOR I= 1 TO 4: FOR J = 1 1704 

6078 LET G(1,J) = RCI,J) 

6080 NEXT J: NEXT I 

6098 GO SUB idR3 

6100 LET TX = 3: LET TY = 1.5: LET TZ = 2: GO SUB tran3: GO SUB mult3 
6112 FOR I = 1 TO 4: FOR J = 1 704 

6128 LET ACI,J) = QC(I,J) 

6130 NEXT J: NEXT I 

6146 GO SUB mul t3 

615@ GO SUB cube 

6168 RETURN 


Figure 9.2 


Exercise 9.1 

Extend the routine ‘cube’ so that information about the size of a rectangular 
block is input, enabling the routine to construct a block of length LH, breadth 
BH and height HT: multiply the x-values of the SETUP cube by LH/2, the y- 
values by HT/2 and the z-values by BH/2. 


Again it should be noted that the modular approach we have adopted may not 
be the most efficient method of drawing three-dimensional pictures. We chose 
this descriptive method in order to break down the complex situation into 
manageable pieces. Once the reader has mastered these concepts, he should can- 
nibalise our programs for the sake of efficiency. However, to show the value of 
this modular approach we give another example, which illustrates just how 
quickly programs can be altered to draw new scenes and situations. 


Example 9.2 
We wish to view a fixed scene (for example, the one shown in figure 9.2) from a 
variety of observation points. 

In this case it is better to store the vertex coordinates of the scene in the 


Orthographic Projections 165 


ACTUAL position, rather than the OBSERVED position, and store the line 
information in array L. The ‘scene3’ routine (listing 9.6) must first set NOV and 
NOL to zero and then place the objects in their ACTUAL position using matrix 
R =P. The construction routine ‘cube’ (listing 9.7) must therefore be altered to 
update the data-base (but note the same routine could be used to store vertices 
in their OBSERVED position, which needs only a different R = Q X P). Then 
for each different view point and direction the ‘scene3’ routine must clear the 
screen, set R to the identity matrix and call ‘look3’, and then call a special new 
‘drawit’ routine (listing 9.8), which uses the matrix R (holding the values of Q, 
the ACTUAL to OBSERVED matrix) to put the points in the OBSERVED 
position and orthographically project them into arrays V and W (we cannot use 
X and Y because this would corrupt our ACTUAL data-base). Routine ‘drawit’, 
which was labelled in ‘scene3’, can then use the information in array L to draw 
the picture on the screen. 


Listing 9.6 


6000 REM scene3/figure 9.2 (variety of views) 

6018 DIM X(16): DIM Y(16): DIM Z(16) 

6020 DIM V(16): DIM W(16): DIM L(2,24) 

6030 DIM A(4,4): DIM B(4,4): DIM R(4,4) 

6040 LET cube = 6500: LET drawit = 7000 

6@5@ LET NOV = @: LET NOL = @ 

6@59 REM store 1'’st cube im ACTUAL ( = SETUP ) position. 
6068 GO SUB idR3 

6870 GO SUB cube 

6879 REM store 2'nd cube in ACTUAL position. 

6080 LET TX = 3: LET TY = 1.5: LET TZ = 2: GO SUB tran3: GO SUB mult3 
6090 GO SUB cube 

6099 REM Loop through different viewing positions. 

6100 GO SUB idR3: GO SUB Look3 

6129 REM draw the two cubes in OBSERVED position. 

6112 CLS: GO SUB drawit 

6120 GO TO 6100 

6130 RETURN 


Listing 9.7 


65@0 REM cube/ vertices and Lines (stored) 

6501 REM IN : NOV,NOL,X(NOV) ,YCNOV),Z(NOV) ,L(2,NOL) ,R(4,4) 

6502 REM OUT : NOV,NOL,XCNOV) ,YCNOV) ,Z(NOV),L(2,NOL) 

6510 DATA Tl slip Usted ss Veatects tertete cistals: pletely a) m1 ct 
Goed DATA V52pie poe Sehr tele Dele Oslo Urlr Spiel ie c 2x0 Sela iGo 
653@ RESTORE cube 

6548 LET NV = NOV 

6549 REM input and store vertices in position ( ACTUAL or OBSERVED ) using R. 
6550 FOR I= 1 TO 8 

6568 READ XX,YY,ZZ: LET NOV 
6570 LET XCNOV) = XX*R(1,1) 
6580 LET YCNOV) 
6598 LET Z(NOV) 
6600 NEXT I 
6689 REM input and store Line information. 

6610 FOR I= 1 TO 12 

6628 READ L1,L2: LET ACL = NOL + 1 

6630 LET L(1,NOL) = L1 + NV: LET L(2,NCL) = L2 + NWV 
6649 NEXT I 

6650 RETURN 


= ,~1,,1 


= NOV + 1 

+ YY*R(1,2) + ZZ*R(1,3) + RC1,4) 
XX#R(2,1) + YY*R(2,2) + ZZ*R(2,3) + R(Z,4) 
XX*R(3,1) + YYAR(3,2) + ZZ#R(3,3) + R(3,4) 
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Listing 9.8 


7002 REM drawit 

7001 REM IN : NOV,NOL,XCNOV) ,YCNOV) ,Z( NOV) ,L(2,NOL) ,P(4,4> 

722 REM move vertices into OBSERVED position anc draw object. 
7010 FOR I = 1 TO NOV 

7020 LET VCI) = XCI)*RC1,1) + YCID*R(1,2) + Z2(1)*R(1,3) + £61,4) 
703@ LET WCL) = XCID*RC2,1) + YCID*R(2,2) + Z2C1)*R(2,3) + R(2,4) 
7048 NEXT I 

765@ FOR I = 1 TO NOL 

7068 LET L1 = L(1,1): LET L2 = (2,7) 

727@ LET XPT = VCL1}: LET YPT W(L1): GO SUB moveto 

7080 LET XPT = V(L2): LET YPT W(L2): GO SUB Lineto 

7098 NEXT I 

7120 RETURN 


If the observer is travelling in a straight line and always looking in the same 
direction, we need not even calculate Q each time, but simply initially manipulate 
space so that the observer is looking along the z-axis, and then use the ‘setorigin’ 
routine to move the observer instead! After you have gained expertise in drawing 
three-dimensional projections, you should choose your construction and viewing 
method with care. You will rarely need to go through the complete method given 
in this chapter, there will always be short-cuts. 


Exercise 9.2 

Produce construction routines for a tetrahedron, pyramid, etc. For example, 
(a) tetrahedron: vertices (1, 1, 1), (1, -1, —1), (-1, 1, —1) and (—1, —1, 1); 
lines 1 to 2,1 to 3,1 to 4,2 to 3,2 to 4 and 3 to 4. 

(b) pyramid with square of side 1 and height HT: vertices (0, HT, 0), (1, 0, 1), 
(1,0, —1), (—1, 0, —1) and (—1, 0, 1); lines 1 to 2, 1 to 3, 1 to 4, 1 to 5, 2 to 3, 
3 to4,4to5 and 5 tol. 


Exercise 9.3 

Set up a line drawing of any planar object in the x/y plane; for example, the out- 
line of an alphabetic character or string of characters, and view them in various 
orientations in three-dimensional space. You can place such planar objects on the 
side of a cube. All you need do is extend the ‘cube’ routine above to include extra 
vertices and lines that define the symbols. 


Thus far we have restricted our pictures to those of the simple cube. This is so 
that the methods we give are not obscured by the complexity in defining objects. 
Our programs will work for any object provided it fits within the limitations of 
our store (and time). For complex objects we merely extend the size of our 
arrays, although some objects will have properties that enable us to minimise 
store requirements. Consider the jet shown in figure 9.3 — it possesses two-fold 
symmetry, which can be used to our advantage. We assume that the plane of 
symmetry is the y/z plane, and so for every point (x, y, z) on the jet there is also 
a corresponding point (—x, y, z). To draw figure 9.3 we use listings 9.1, 9.2 and 
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9.3, together with a construction routine ‘jet’ that generates all the vertices of 
the aeroplane with positive x-coordinates; thus information about only one-half 
of the jet is stored. To construct the complete aeroplane we need also a ‘drawit’ 
routine (listing 9.9), which draws one side of the jet, and then, by reversing the 
signs of all the x-values, draws the other. 


Figure 9.3 


It is simple to construct these figures. Just plan your object in various sections 
on a piece of graph paper, number the important vertices and note which pairs 
of vertices are joined by lines. The coordinates values can be read directly from 
the grid on the paper. The data for figure 9.3 are HORIZ = 160, VERT = 120, 
(EX, EY, EZ) = (1, 2,3) and (DX, DY, DZ) = (0, 0, 0). 


Bodies of Revolution 


This far in our construction of objects we have relied on DATA to input all the 
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Listing 9.9 


6000 REM scene3/jet 

6010 DIM X(37): DIM Y(37): DIM Z(37) 
6220 DIM L(2,46): DIM V(37): DIM W(37) 
6030 DIM AC4,4): DIM B(4,4): DIM R(4,4) 
604@ LET jet = 6500: LET drawit =7200 
605@ GC SUB idR3: GC SUB Look3 

6260 GO SUB jet 

6278 GO SUB drawit 

6088 RETURN 


6500 REM jet 

6502 REM OUT : NOV,NOL,X (NOV) ,YCNOV) ,Z(NOV) ,L(2,NOL) 

6510 DATA @,0,80, 0,0,64, 0,8,32, 4,8,32 

6520 DATA &,4,32, 8,2,32, 4,74,32 

653@ DATA 0,8,-32, 4,8,-32, 8,4,-32, 8,0,-32 

6548 DATA 4,-4,-32, @,-4,-32, 8,0,24, 48,0,-32 

6558 DATA 8,2,-32, 0,8,0, 2,8,-32, %,32,-32 

6568 DATA 28,-4,-24, 30,-2,-24, 32,-2,-24, 34,-4,-24 

6570 DATA 32,-6,-24, 30,-6,-24, 28,-4,8 30,-2,8 

6588 DATA 32,-2,8, 34,-4,8,  32,-6,8,  30,-6,8 

6598 DATA 31,@,-24, 31,-2,-24, 31,-2,-12, 31,8,-12 

6600 DATA 0,6,49, 3,6,40 

6612 DATA 1,2, rap PN yh, 255 eye rd ge 3,4 

6620 DATA 4,9, 510). 6,41, 7,12, 8585 9,10, 10,11, 11,12 
6632 DATA 12,13, 14,15, 15,12, 15,16, 14,16, 17,18, 17,19, 18,19 
6648 DATA 20,21, 21,22, 22,23, 23,24, 24,25, 25,20, 26,27, 27,28 
6658 DATA 28,29, 29,30, 38,31, 31,26, 20,26, 21,27, 22,28, 23,29 
6668 DATA 24,32, 25,31, 32,33, 33,34, 34,35, 35,32, 36,37 

6663 REM SETUP vertex and Line information for half the jet. 

6700 LET NOV = 37: LET NOL = 46 

6718 FOR I = 1 TO NOV: READ X(1),Y(1I),Z(1): NEXT I 

6720 FOR I = 1 TO NOL: READ L(1,1),L(2,1): NEXT I 

6730 RETURN 


7000 REM drawit/ two halves of the jet 

7001 REM IN : NOV, NOL, X(NOV) ,YCNOV) ,Z(NOV) ,L(2,NOL) ,R(4,4) 
7018 LET IS = 1 

7019 REM Loop through two halves of the jet. 

7028 FOR J 
703@ FOR I 
7048 LET XX = IS*X(I): LET YY = YCI): LET ZZ = Z(1) 

7249 REM put vertices in OBSERVED position. 

7050 LET VC1) = XX*R(1,1) + YY*R(1,2) + 2Z*R(1,3) + R(1,4) 
7060 LET WC1) = XX*R(2,1) + YY*RC2,2) + ZZ*R(2,3) + R(2,4) 
7070 NEXT I 

7088 FOR I = 1 TO NOL 

7098 LET L1 = L(1,1): LET L2 = L¢2,1) 

7100 LET XPT = V(L1): LET YPT = WCL1): GO SUB moveto 

7118 LET XPT = VCL2): LET YPT = WC(L2): GO SUB Lineto 

7120 NEXT I 

7138 LET IS = ~-1 

7148 NEXT J 

715@ RETURN 


"ou 
o 
-j 
o 
4 
o 
<= 


information about lines and vertices. We consider now a type of object where 
only a small amount of information is required for a quite complex object —this 
is a body of revolution, an example of which is shown in figure 9.4. 
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The method is simply to create a defining sequence of NUMV lines in the x/y 
plane through the origin; we call this the definition set. Then we revolve this set 
about the vertical (y-axis) NUMH—1 further times to create new vertical sets. 
The NUMV lines in the definition set are formed by joining the NUMV + 1 
vertices (S(I), T(I), 0) (where 1 <I < NUMV + 1) in order. From this we generate 
NUMH different vertical sets, the J th vertical set is the definition set rotated 
through an angle PHI + 27(J — 1)/NUMH about the vertical y-axis, for some in- 
put value PHI (@). As well as the set of NUMH x NUMV vertical lines we intro- 
duce horizontal lines also. We consider a single point (S(I), T(I), 0) at the end of 
a line segment in the definition set: as we rotate about the vertical axis it moves 
into NUMH positions (provided that the point is not on the axis of rotation) 


(S(I) x cos (6 + 4), T(1), S(1) x sin (6 + 4)) 


where @ = 2n(J — 1) with 1 <J < NUMH. 

These NUMH points are joined in order and the NUMH" position is joined 
back to the first, to give the I" horizontal set. So there are (NUMH — n) x 
NUMV horizontal lines, where m is the number of vertices on the axis of rotation. 
Listing 9.10 is a construction routine ‘rotbod’, which draws the body of revolu- 
tion when given NUMV, NUMH, PHI, the original set of vertices in T and S, and 
the positional matrix R. Listing 9.11 is the ‘scene3* routine, which creates the 
scene of a spheroid in figure 9.4 by placing eight points from a semicircle into 
the definition set: HORIZ = 3.2, VERT = 2.2, PHI = 7/25, NUMH = 10, 

NUMV = 8, viewed from (1, 2, 3) looking at (0, 0, 0). NUMV is assumed to be 
less than or equal to fifteen in listing 9.11. 


Listing 9.10 


6022 REM scene3/spheroid 

6010 DIM X(32): DIM Y¢32) 

6028 DIM AC4,4): DIM B(4,4): DIM R(4,4) 

6030 DIM S(16): DIM T(16) 

6040 LET revbod = 6580 

6050 INPUT "NUMBER OF HORIZONTAL LINES", NUMH 
6060 INPUT "NUMBER OF VERTICAL LINES",NUMV 
6070 INPUT "ANGLE PHI ";PHI 

6@8@ LET THETA = PI/2: LET 1D = PI/NUMV 

6089 REM generate definition set. 

6098 FOR I = 1 TO NUMV + 14 

6180 LET S(1) = COS THETA: LET T(I) = SIN THETA 
611% LET THETA = THETA + TD 

6128 NEXT I 

6138 GO SUB icR3: GO SUB Look3 

614@ GO SUB revbod 

615@ RETURN 


Exercise 9.4 
Experiment with this technique, any line sequence will do. Try an ellipsoid: this 
is essentially the same as the spheroid except that the definition set is produced 
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Listing 9.11 


6502 REM revbod/ body of revolution 

6501 REM IN : PHI,NUMH,NUMV, SCNUMV+1),TCNUMV+1),R(4,4) 

6509 REM create first vertical set. 

6510 LET THETA = PHI: LET TD = PI*2/NUMH 

652@ LET N1 = NUMV + 1: LET C = COS PHI: LET S$ =SIN PHI 

6530 FOR I = 1 TO N1 

6540 LET XX = SC1)*C: LET YY = T(I): LET ZZ = SC(1)*S 

6550 LET X(1) XX*RC1,7) + YYaRC1,2) + ZZ#R(1,3) + RC1,4) 

656% LET Y(1) XX*RO2Z,1) + YY*R(Z,2) + ZZ*R(2,3) + RC2,4) 

6570 NEXT I 

6579 REM Locp through second vertical set. 

6580 FOR J = 1 TO NUMH 

6598 LET THETA = THETA + TD: LET C = COS THETA: LET S = SIN THETA 
6600 FOR I = 1 TO N1 

6610 LET XX = SCI)*C: LET YY = TCI): LET 2Z = SC(I)*S 

662@ LET X(1 + NI) = XX#RC1,17) + YY*R(1,2) + ZZ*R(1,3) + RO1,4) 
6632 LET YCI + N1) = XX*RC2,7) + YY*RC2,2) + ZZ*R(2,3) + RC2,4) 
664@ NEXT I 

6649 REM draw lines in first vertical set. 

665@ LET ¥PT = X(1): LET YPT = ¥(1): GO SUB moveto 


wou 


6668 FOR I = 2 TO N14 
6670 LET XPT = X(I): LET YPT = Y(1): GO SUB Lineto 
6682 NEXT I 


6689 REM join corresponding horizontal vertices on the two vertical sets. 
6698 FOR I = 1 TO N1 

6700 LET XPT X(I): LET YPT = YC(1): GO SUB moveto 

671@ LET XPT X(I + N1): LET YPT = YCI + N1): GO SUB Lineto 

6715 REM copy second vertical set into first and repeat process. 

6728 LET X(1) = XPT: LET YC(1) = YPT 

6730 NEXT I 

6742 NEXT J 

6750 RETURN 


from a semi-ellipse rather than a semicircle. There is no need to produce only 
convex bodies: lines can cut one another, cross to and fro over the y-axis and 
have x-values that move up and down. 

This idea can be extended into a body of rotation, Now as the set of lines 
moves around the central axis, the y-values of the points do not stay fixed. They 


. Se pee Ba) Ss ar 
cee i 


Figure 9.5 
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can move in a regular manner; that is, drop by the same amount with each 
rotation through 27/NUMH. Now, of course, the lines can make more than one 
complete rotation about the axis, see figure 9.5. Write a program to implement 
a body of rotation. 


Complete Programs 


From now on we shall refer to listings 3.4 (‘angle’), 8.1 (‘mult3’ and ‘idR3’), 
8.2 (‘tran3’), 8.3 (‘scale3’), 8.4 (‘rot3’), 9.1 (‘ook3’) and 9.2 (‘main program’) as 
‘lib3’. 


iT 


il. 


‘ib1’, ‘lib3’ and listings 9.3 (‘scene3’) and 9.4 (‘cube’). Data required: 
HORIZ, VERT, (EX, EY, EZ) and (DX, DY, DZ). Try 6, 4, (1, 2, 3), 
(—1, 0, 1). 


. ‘lib1’, ‘lib3’ and listings 9.5 (‘scene3’) and 9.4 (‘cube’), Data required: 


HORIZ, VERT, (EX, EY, EZ) and (DX, DY, DZ), Try 9, 6, (1, 2, 3), 

(—1, 0, 1). Make systematic changes to one of these input values and keep 
all the other parameters fixed. 

‘libl’, ‘lib3’ and listings 9.6 (‘scene3’), 9.7 (‘cube’) and 9.8 (‘drawit’). Data 
required: HORIZ, VERT, and then repeated input of (EX, EY, EZ) and 
(DX, DY, DZ). Try 9, 6, then (1, 2, 3), (—1, 0, 1); (3, 2, 1), (0, 0, 1). Again 
make systematic changes to one of the input parameters. 


. ‘lib1’, ‘lib3’ and listing 9.9 (‘scene3’, ‘jet’ and ‘drawit’). Data required: 


HORIZ, VERT, and then repeated input of (EX, EY, EZ) and (DX, DY, 
DZ). Try 160, 120, then (1, 2, 31), (—1, 0, 30); (3, 2, 20), (0, 0, 21). 
Again make systematic changes to one of the input parameters. 


. ‘lib1’, ‘lib3’ and listings 9.10 (‘scene3’) and 9.11 (‘revbod’). Data required: 


HORIZ, VERT, NUMH, NUMV (< 15), PHI, (EX, EY, EZ) and (DX, DY, 
DZ). Try 3.2, 2.2, 10, 10, 1, (1, 2, 3), (0, 0, 0); (3, 2, 1), (0, 0, 0). 


10 Simple Hidden Line and Surface 
Algorithms 


Having drawn a cube and other wire objects we soon become irritated by the lack 
of solidity in the figures. We would like to consider solid objects, in which case 
the facets at the front of the object will obviously restrict the view of the facets 
(and boundary lines) at the back. In order to draw pictures of such objects we 
have to introduce a hidden surface algorithm; or a hidden line algorithm if we 
wish to draw all, but only, the visible lines on the object. There are many, many 
such algorithms — some elementary for specially restricted situations, others 
very sophisticated for viewing general complicated scenes. The time limitations 
of microcomputers bar us from implementing the very complex algorithms. In 
the case of the Spectrum we have also the limitation that we cannot draw more 
than two colours in a character block, which therefore restricts us to line draw- 
ings. Nevertheless, by limiting the types and number of objects in the scenes, it 
is possible to get most acceptable pictures. In chapter 12 we discuss a relatively 
complex algorithm, but here we consider two special types of scene — we use 
the properties implicit in these special configurations to minimise the work 
needed to discover which surfaces and lines are hidden. Later in this chapter we 
shall give a simple method for drawing mathematically defined three-dimensional 
surfaces, but to start we consider an algorithm for drawing a single solid convex 
body in three-dimensional space. 

For our work on hidden line and surface algorithms we choose to define a 
scene by storing the NOV vertices of objects in the scene (in the OBSERVED 
position) in arrays X, Y and Z as usual. However we shall now use facet informa- 
tion rather than line. The NOF facets are stored in an array F (we need also the 
array H for the number of edges on each polygonal facet), and to save space 
insist that no polygonal facet has more than six edges. Should we need more 
edges, then the facet must be broken down into a set of smaller polygons. In 
order to make the hidden surface algorithm easier we impose a restriction on the 
order of vertices within the array F. The vertices must be stored in the order in 
which they occur around the edge of the facet, and when viewed from the out- 
side of an object they must be in an anti-clockwise orientation. Naturally from 
the inside the vertices taken in this same order would appear clockwise. We shall 
assume also that all lines are the junction of two facets. Individual lines not 
related to facets must be added as trivial two-sided facets. 
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Once we have planned our object in terms of vertices and facets, how do we 
check that the facets are actually anti-clockwise? Simply write a program! The 
orientation of any convex polygon can be calculated from any three of its ver- 
tices taken in order, and so we need consider only an ordered triangle of vertices 
from the facet. We have already seen, in chapter 7, a method for calculating the 
orientation of a two-dimensional triangle. Our problem is solved if we can reduce 
the three-dimensional situation to two dimensions. 

For simplicity we assume that all objects are SETUP about and containing the 
origin. We insist also that the infinite planes containing the facets on the surface 
of an object do not pass through the origin. Then we rotate space so that one of 
the vertices of the triangle in question lies on the negative z-axis (compare with 
routine ‘look3’, listing 9.1). Since we assume the origin is inside the object and 
the eye is outside, all we need do is project the transformed triangle back on to 
the x/y plane (that is, ignore the z-coordinates) and treat it like a two-dimen- 
sional triangle (in fact one of the three vertices will be (0,0)). Listing 10.1 is our 
solution of the problem. 


Listing 10.1 


10@ REM orientation of a 3=D triangle 

112 DIM X(3): DIM Y(3): DIM Z(3) 

120 DIM AC4,4): DIM B(4,4): DIM R(4,4) 

130 LET rot3 = 8600: LET anale = S8@M: LET mult3 = 9100: LET idR3 = 9300 
14@ LET J$ = "TYPE IN COORDINATES OF TRIANGLE " 

15@ FOR I= 1 To 3 

160 LET I$ = "VERTEX(" + STRS I + ")=(" 

172 INPUT CIS + TS) sX(lds"s¥ Ge", "sz (2)39" 

TSOAPRINT AL 2I2eT Oe IS KC oh SCS ZCI SY 

198 NEXT I 

199 REM find matrix R that will put (X(1),Y(1),Z(1)) on negative z-axis. 
202 GO SUB idR3 

21@ LET AX = X(1): LET AY = Y(1): GO SUB angle 

220 LET AXIS = 3: LET THETA = -THETA: GO SUB rot3: GO SUB muLlt3 

230 LET AX = Z(1): LET AY = SQR (X(1)*X(1) + YC(1)*Y(1)): GO SUB angle 
240 LET AXIS = 2: LET THETA = PI - THETA: GO SUB rot3: GO SUB mult3 
249 REM transform triangle so that all vertices Lie in an x/y plane. 
250 FOR I= 1 To 3 

268 LET XX = X(€I1): LET YY = YCI): LET ZZ = ZCI) 

270 LET X(1) = XX*R(1,17) + YY*RO1,2)+ ZZ*R(1,3) + RC1,4) 

280 LET YCI) = XX*R(2,1) + YY*R(2,2)4+ ZZ*R(Z2,3) + RC2,4) 

298 NEXT I 

299 REM check if the now 2-D triangle is clockwise or anti-clockwise. 
300 PRINT AT 11,0;""IF THE EYE AND THE ORIGIN ARE ON” 

319 PRINT AT 13,@;"OPPOSITE SIDES OF THE FACET THEN" 

328 PRINT AT 15,0;"THE TRIANGLE IS “; 

332 LET 0X1 = XC2) — X€1): LET DY1 ¥t2)_ = ¥C1) 

340 LET DX2 = X(3) - X(2): LET DY2 = Y(3) - Y(2) 

350 IF DX1*DY2 - DX2*DY1 > O@ THEN PRINT "ANTI-"; 

360 PRINT "CLOCKWISE." 

378 STOP 
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Exercise 10.1 

Rewrite the wire-figure routines of the last chapter using the assumption that the 
data are given as vertices and anti-clockwise polygonal facets, and not as lines. 
Check your facet data with the above program. The line information is still there 
of course, implicit in the facet data — they are the edges of the facet considered 
as pairs of vertices. Within this information each line occurs twice, once on 

each of two neighbouring facets. We do not want to waste time drawing lines 
twice! Because of the anti-clockwise manner of constructing the figures we note 
that if a line joins vertex I to vertex J on one facet then the equivalent line on 
the neighbouring facet joins vertex J to I. So for wire figures stored as facets we 
shall draw lines from vertex I to vertex J if and only if 1<J. 


A Hidden Surface Algorithm for a Single Closed Convex Body 


A finite convex body is one in which any line segment joining two points inside 
the body lies totally within the body: a direct extension of the definition in 
two-dimensional space. It is automatically closed, and thus it is impossible to get 
inside the body without crossing through its surface. We orthographically project 
all the vertices of the object on to the view plane, noting that a projection of a 
convex polygon with n sides in three-dimensional space is an n-sided convex 
polygon (or degenerates to a line) in the view plane. Taking the projected ver- 
tices of any facet in the same order as the original, we find that either the new 
two-dimensional polygon is in anti-clockwise orientation, in which case we are 
looking at the outside of the facet, or the new vertices are clockwise and we are 
looking at the underside. Since the object is closed we are able to see only the 
outside of facets; the view of their underside is blocked by the bulk of the object. 
Therefore we need draw only the anti-clockwise polygonal facets — a very simple 
algorithm, which can be implemented in either construction or ‘drawit’ routines. 

For example, an adjusted construction routine ‘cube’ for eliminating the 
hidden lines from an orthographic picture of a cube is given as listing 10.2. Here 
we do not store the facets, but instead READ the information from DATA and 
draw the visible facets immediately. This program was used to produce figure 
10.1, a hidden line version of figure 9.1d. We use all the routines from the last 
chapter that were used to draw figure 9.1d, except of course for the construction 
routine that sets up the data as vertices and facets, and draws the object (this 
replaces listing 9.4 in the program for drawing figure 9.1d). Naturally we use the 
same data that were used for figure 9.1d. 


Exercise 10.2 

Change listing 10.2, so that it can draw a rectangular block of length LH, breadth 
BH and height HT, where LH, BH and HT are input parameters to the routine. 
Then draw a hidden line picture of it. Draw hidden line pictures of tetrahedra, 
pyramids, octahedra, etc. Add extra parameters to distort these figures so that 
they are no longer regular, but are still convex. 
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Listing 10.2 


6500 REM cube/facets (not stored) hidden line elimination 
6507 REM IN : R(4,4) 

6518 DATA 1,1,1, 1,1,-1, 1,-1,-1, 1,-1,1 
6528 DATA 1,2,3,4, 5,8,7 6, 1,5,6,2,% 2,6 
6530 RESTORE cube 

6539 REM place vertices in OBSERVED position. 

654@ FOR T= 1 TO 8 

6550 READ XX,YY,ZZ 

656@ LET XC1) = XX*R(1,1) + YY*R(1,2) + ZZ*R(1,3) + RO1,4) 

€570 LET YC) = XX*RC2,1) + YY*R(2,2) + ZZ*R(2,3) + RCZ,4) 

6580 NEXT I 

6598 FOR 1 = 1 TO 6 

6599 REM READ facet ‘nformation and draw it if oriented anti-clockwise. 
6600 READ F1,F2,F3,F4 

6612 LET DX1 = XCF2)-X(F1): LET DY1 YCF2)-YCF1) 

6620 LET DX2 = X(F3)-X(F2): LET DY2 YCF3)-YCF2) 

6630 IF DX1*bY2 - DX2*DY1 < @ THEN GO TO 6690 

6648 LET XPT = XC€F1): LET YPT = YCF1): GO SUB moveto 

6650 LET XPT X(F2): LET YPT = YCF2): GG SUB Lineto 

6660 LET XPT X(F3): LET YPT = YCF2): GC SUB Lineto 
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6676 LET XPT XCF4): LET YPT YCF4): GO SUB Lineto 
6682 LET XPT 6G Gls | ties Be as os ¥CF1): GC SUB Lineto 
6690 NEXT I 
6700 RETUFK 


Figure 10.1 


Bodies of Revolution 


We can use this anti-clockwise versus clockwise method to produce hidden 
surface pictures of the bodies of revolution that were defined in chapter 9. As 
we go through the NUMH revolutions we generate NUMV facets with each move. 
Provided these quadrilateral (or perhaps degenerate triangular) facets are care- 
fully constructed in an anti-clockwise orientation, then we can use the same 
algorithm. Listing 10.3 is just such a routine; it produces figure 10.2, a hidden 
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surface version of figure 9.4 (and uses the same input data). Again, because of 
the modular design of our programs, all the routines needed to draw figure 10.2, 
except ‘revbod’, are the same as those given in chapter 9. Now, however, we 
must deal solely with convex bodies of revolution. 


Figure 10.2 


As the routine rotates the definition set of lines about the vertical axis, it 
stores the vertices of two consecutive vertical sets of lines. These form the 
vertical edges of one slice of facets. The vertices on these facets are immediately 
transformed by R (the SETUP to OBSERVED matrix) and stored in arrays X 
and Y. In such a configuration of pairs of vertical lines the first set of vertices 
have indices from 1 to NUMV + 1] (= N1), and the second from N1 + 1 to 2*N1. 
The I™ facet is bounded by four lines, two vertical joining vertex I toI + 1, and 
1+N1 toI+N1 + 1, and two horizontal joining I tol + Ni,andI+1tol+Nl 
+1, Adjustments must be made if one of the original vertices is on the axis of 
rotation, in which case the quadrilateral degenerates to a triangle. The order of 
vertices in each facet is carefully chosen so that they are in anti-clockwise 
orientation when viewed from outside the object. This allows us to use our 
simple algorithm to draw the object with the hidden lines suppressed. This 
technique was used also to draw figure I.1 in the introduction. 


Exercise 10.3 

Experiment with this technique. Any initial set of lines will do, provided that it 
starts and ends on the vertical axis and the polygon thus formed in the x/y plane 
is convex. 
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Listing 10.3 


65080 REM revbod/ convex body of revolution (hidden Line elimination) 

6501 REM IN : PHI,NUMH,NUMV,SCNUMV+1),TCNUMV+1),R(4,4) 

651@ LET THETA = PHI: LET TD = PI*2/NUMH 

6520 LET N1 = NUMV + 1: LET C = COS PHI: LET S = SIN PHI 

6529 REM create first vertical set. 

653@ FOR I = 1 TO N1 

6540 LET XX = S(I)*C: LET YY = T(1): LET ZZ = SC1)*S 

6550 LET X(1) = XX*#R(1,1) + YY*R(1,2) + ZZ*R(1,3) + RO1,4) 

656@ LET YC1) = XX*R(2,1) + YY*RC2,2) + ZZ*R(2,3) + RO2,4) 

6570 NEXT I 

6579 REM Loop through second vertical set. 

6588 FOR J = 1 TO NUMH 

6590 LET THETA = THETA + TD: LET C = COS THETA: LET S = SIN THETA 

660D FOR I = 1 TO N1 

6610 LET XX = S(I)*C: LET YY = T(1): LET ZZ = S(I)*S 

6620 LET XC(I + NI) = XX*RC1,1) + YY*R(1,2) + ZZ*R(1,3) + RO1,4) 

66308 LET YCI + N1) = XX*R(2,7) + YY*RC2,2) + 2Z2*R(2,3) + R¢2,4) 

6648 NEXT I 

6649 REM take anticlockwise triangle from each facet between the two sets. 
If it keeps its orientation on projection then it is visible. 

6650 FOR I = 1 TO NUMV 

6660 LET F1 = Iz LET F2 = 1 + 12 LET FS = F2 + NI 

6670 IF I = NUMV THEN LET F3 = F3 - 1 

6680 LET DX1 = X(F2) - XC(F1): LET DY1 YCF2) - YCF1) 

6698 LET DX2 = XCF3) - X€F2): LET DY2 = YCF3) - YC(F2) 

6700 IF DX1*DY2 - DX2*DY1 < @ THEN GO TO 6770 

671@ LET F3 = F2 + Ni: LET F4 = F3 - 1 

6720 LET XPT XCEID= LET YPT Y(F1): GO SUB moveto 

6730 LET XPT XtF2)2 LET YT Y(F2): GO SUB Lineto 

6748 LET XPT KCRS2e LER YP : GO SUB Lineto 

6750 LET XPT XLE43e LET YPT YC(F4): GO SUB Lineto 

6768 LET XPT XtEDs) ET YET Y(F1): GO SUB Lineto 

6770 NEXT I 

6779 REM copy second set into first and repeat process. 

6782 FOR I = 1 TO N1 

6790 LET XCI) = XC1 + NI): LET YC(I) = YCI + NID 

6800 NEXT I 

6818 NEXT J 

6828 RETURN 
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Drawing a Special Three-dimensional Surface 


The call for pictures of convex solids is limited, so we now look at one type of 
non-convex figure that can be drawn using information about its special form. 
We consider the construction of a restricted type of three-dimensional surface in 
which the y-coordinate of each point on the surface is given by a single-valued 
function ‘f’ of the x-coordinate and z-coordinate of that point; ‘f’ will be includ- 
ed as a routine in the program — one such example is given in listing 10.4, the 
function y = 4 x SIN (XZ)/XZ where XZ = /(x? +z”) shown in figure 10.3. 
The data required were HORIZ = 32, VERT = 22, (EX, EY, EZ) = (3, 2, 1), 
(DX, DY, DZ) = (0, 0, 0), NX = NZ = 16, XD = ZD = —10 and XT = ZT = 10. 
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6000 REM scene3 

6012 DIM A(4,4): DIM BC4,4): DIM R(4,4) 

6020 LET surface = 6500: LET drawlin = 7000: LET f = 7200 
60308 GO SUB idR3: GO SUB Look3 

6048 GO SUB surface 

6958 RETURN 


6500 REM surface 

6501 REM IN : R(4,4) 

6510 DIM D(256) 

652@ INPUT "NX,XMIN,XMAX "ZNX3"",""ZXMINZ", "3 XMAX 

653@ INPUT "NZ,ZMIN,ZMAX ";NZ;",";ZMIN;",";ZMAX 

654@ LET XDIF = (XMAX - XMIN)/NX 

6558 LET ZDIF = (ZMAX — ZMIN)/NZ 

6559 REM draw zero'th set of fixed-x lines. 

656@ LET XX = XMAX: LET ZZ = ZMIN: GC SUB f 

6570 LET XA = XX*R(1,1) + YY*R(1,2) + 2Z7*R(1,3) + £04,4) 


6588 LET YA XX*#RC2,1) + YY*RC2,2) + ZZ*R(2,3) + RC2,4) 
6598 FOR J = 1 TO NZ 
6602 LET 22 ZZ + ZDIF: GO SUB f 


6619 LET XB = XX*R(1,1) + YY#RC1,2) + ZZ*R(1,3) + R(1,4) 
6620 LET YB = XX*R(2,1) + YY*R(2,2) + ZZ*R(2,3) + R(2,4) 
6638 GO SUB drawLlin 

6648 LET XA = XB: LET YA = YB 

6650 NEXT J 

6€59 PEM draw zero'th set of fixed-z lines. 

6660 FOR J = 1 TO NX 

6670 LET XX = XX-XDIF: GO SUB f 

6680 LET XB = XX*R(1,1) + YY*R(1,2) + ZZ7*R(1,3) + (1,4) 
6698 LET YB = XX*R(2,1) + YY*R(2,2) + Z2*R(2,3) + R(2,4) 
6700 GC SUB drawlin 

6719 LET XA = XB: LET YA = YB 

6728 NEXT J 

6729 REM move x values kack ir NX steps. 

6732 LET XS = XMAX 

6749 FOR 1 = 1 TO NX 

6748 REM draw visible parts of one from each cf the fixed-z lines: 
6749 the x values very from (I-1)st x-line to the I'th. 
675@ LET ZS = ZMAX 

676 FOR J = 1 TO NZ 


6778 LET ZS = ZS - ZDIF 

678@ LET XX = XS: LET ZZ = ZS: GO SUB f 

679@ LET XA = XX*R(1,1) + YY*RC1,2) + ZZ*R(1,3) + RO(1,4) 
6800 LET YA = XX*R(2,1) + YY*R(2,2) + ZZ*R(2,3) + RO&2,4) 
6810 LET XX = XS-XDIF: GO SUB f 

6820 LET XB = XX*R(1,1) + YY*R(1,2) + ZZ*R(1,3) + RC(1,4) 
6830 LET YB = XX*R(2,1) + YY*R(2,2) + 2Z*R(2,3) + R(2,4) 
6848 GO SUB drawlin 

6850 NEXT J 


6859 REM draw visible parts of the fixed-x lines. 

6860 LET ZZ = ZMIN: GO SUB f 

6870 LET XA = XX*R(1,1) + YY*R(1,2) + ZZ*R(1,3) + RC(1,4) 
6888 LET YA = XX*R(2,1) + YY*R(2,2) + ZZ*R(2,3) + R(2,4) 
6898 FOR J = 1 TO NZ 

6902 LET ZZ = ZZ + ZDIF: GO SUB f 

6910 LET XB = XX*R(1,1) + YY*R(1,2) + ZZ*R(1,3) + R(1,4) 
6920 LET YB = XX*R(2,1) + YY*R(2,2) + ZZ*R(2,3) + RC2,4) 
693@ GO SUB crawlin 

6948 LET XA = XB: LET YA = YB 

6950 NEXT J 

6968 LET XS = XS-XDIF 

6970 NEXT = 

éC&E RETURN 
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702) REM drawlin/ draw Line between points 

7001 REM IN : XA,YA,XB,YB,D(256) 

7008 REM visible parts of Line between (XA,YA) anc (XB,YB). 
7009 REM IA and IB are the x-pixel positions of the two points. 
7012 LET IA = FN X(XA): LET IB = FN X(XB) 

702@ LET Y = YA: LET YD = @ 

702@ IF IA <> IB THEN GO TO 7080 

7039 REM if IA=IB then only draw Line if second point is above first. 
704 PLOT IA,D(IA) 

7@5@ LET IY = FN YCYB) 

TE6E IF LY > DCIA) THEN DRAW @,1Y - DCIA): LET DCIA) = IY 
7078 RETURN 

7079 REM move in pixel columns from left to right. 

7080 LET YD = (YB - YA}/CIB - IA) 

7098 FOR K = IA TO IB 

7100 LET IY = FN YCY) 

7199 REM if y-pixel is greater than D, them reset D-value. 
711M IF DCK) < IY THEN LET D(K) = IY 

7i2@ LET Y= Y + YD 

7130 NEXT K 

7139 REM join all the points (1,D(1)) where IA<=I<=IB. 

714@ PLOT IA,DCIA) 

7150 FOR K = IA +1 TO IB 

716@ DRAW 1,D(K) - LCK - 1) 

717 NEXT K 

7180 RETURN 


7200 REM f/ function to be drawn 

7201 REM IN =: XX,22 

7202 REM OUT : YY 

7210 LET YY = 4: LET XZ = SQR (XX*XX + 2Z%*72) 
7220 IF XZ > O.@00001 THEN LET YY = 4*SIN (XZ)/XZ 
7230 RETURN 


Figure 10.3 


Since it is impossible to draw every point on the surface, we have to approxi- 
mate by considering a subset of these surface points. We choose those points with 
x/z coordinate on a grid; in other words when orthographically viewed directly 
from above (thus ignoring the y-values), the points form a rectangular grid. This 
grid is composed of NX by NZ rectangles in the x/z plane. The x-coordinates of 
the vertices are equi-spaced and vary between XB and XT (XB < XT) and the 
equi-spaced z-values vary between ZB and ZT (ZB < ZT). There are thus 
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(NX + 1) x (NZ + 1) vertices (X, Z) in the grid that can be identified by the pair 
of integers (i, /) 


X = XT +i(XB — XT)/NX 0<i<NX 
Z=ZT+j(ZB—ZT)/(NZ_ 0<j<NZ 


The equivalent point on the surface is (X, Y, Z) where Y = f(X, Z). Every one of 
the (NX + 1) x (NZ + 1) points generated in this way is joined to its four 
immediate neighbours along the grid (that is, those with an equal x-value or z- 
value), unless it lies on the edge, in which case it is joined to three, or in the case 
of corners to two, neighbours. The grid lines can be considered as NX + 1 sets of 
different fixed-x line segments and NZ + 1 sets of fixed-z line segments. For 
example the I fixed-x set of lines (0 <1 < NX) consists of NZ lines joining pairs 
of points equivalent to the grid points (1, J) to (I,J +1), whereO<J < NZ — 1. 

The surface can undulate, so not all the lines need be visible from a given view 
point. We devise a very simple method to eliminate the hidden lines by working 
from the front of the picture to the back. 

To simplify the algorithm we assume that the eye is always in the positive 
quadrant (that is, EX > 0 and EZ > 0), and that the eye is always looking at the 
origin (DX = DY = DZ = 0). If the function is non-symmetrical and we wish to 
view it from another quadrant, then we simply change the sign of x and/or z in 
the function. We can then transform the surface into the OBSERVED position. 

In this position we first orthographically project the front edge, the two grid 
line with x = XT and z = ZT, on to the view plane. That is, the zero™ set of 
fixed-x lines and the zero™ set of fixed z-lines. We now work from the front to 
the back in NX steps. In the I step (1 <I < NX), we draw first the visible parts 
of one line segment from each of the NZ fixed-z sets;the J such line (1 < J<NZ) 
joins the points equivalent to the grid points (I — 1, J) to (J, J). That is, we join 
the corresponding points on the (I — 1)" fixed-x line to the I™, starting at the 
zero" fixed-z line and working backwards. Then we draw the visible parts of the 
I™ set of fixed-x line segments. This is all programmed in routine ‘surface’. 

As yet we have not explained how to draw the visible parts of the lines: 
routine ‘drawlin’. We define an array D of 256 values, one for each column of 
pixels across the screen. When we first draw the zero™ sets of fixed-x and 
fixed-z lines, we put the pixel values of the points on these lines in the array D. 
We calculate the row/column values for every pixel on a given line segment and 
draw it if and only if the row value for a column is greater than the value stored 
in D. Whenever a pixel is added to the diagram then the value of array D is 
altered accordingly. This method furnishes us with a hidden line elimination 
algorithm for mathematical surfaces because of the order in which we consider 
the lines. If we move out of the positive quadrant, or let the scale of the figure 
exceed the size of the graphics area, then we shall incur errors. 
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Exercise 10.4 
Change the functions ‘f’ used by this program. For example, use f= 4 x SIN(t) 
where t =./(x? +z”). 


Exercise 10.5 

The above program does not draw the underside of the surface if it shows below 
’ the zero" fixed-x/z lines. Alter listing 10.4 to correct this shortcoming. Define 
another array E(256) that initially holds information on the nearest edges, and 
whenever pixels on the line segments go below the values stored in E then the 
pixel is drawn and the value of E altered. Can we use the same order for drawing 
the lines? 


Complete Programs 


I. ‘lib3’ and listing 10.1. Data required: the vertex coordinates of a triangle 
(X(), Y(1), Z(D), where 1 <1 <3. Try (1,0, 1), (1, 1, 0) and (0, 1, 1): 
also the same vertices in a different order (1, 1,0), (1,0, 1) and (0, 1, 1). 

II. ‘lib1’, ‘lib3’ and listings 9.3 (‘scene3’) and 10.2 (‘cube’). Data required: 
HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ). Try 9, 6, (1, 2, 3), (0, 0, —1). 

III. ‘lib1’, ‘lib3’ and listings 9.10 (‘scene3’) and 10.3 (‘revbod’). Data required: 
HORIZ, VERT, NUMH, NUMV (< 15), PHI, (EX, EY, EZ), (DX, DY, DZ). 
Try 3.2, 2.2, 10, 10, 1, (1, 2, 3), (0, 0, —1). 

IV. ‘lib1’, ‘lib3’ and listing 10.4 (‘scene3’, ‘surface’, ‘drawlin’ and ‘f’). Data 
required: HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ), NX, XB, XT, NZ, 
ZB, ZT. Try 30, 20, (1, 2, 3), (0, 0, 0), 16, —8, 8, 16, —8, 8. 


Il Perspective Projections 


We have seen that the orthographic projection has the property that parallel 
lines in three-dimensional space are projected into parallel lines on the view 
plane. Although very useful, such views do look odd! Our brains are used to the 
perspective phenomenon of three-dimensional space, and so they attempt to 
interpret orthographic figures as if they are perspective views. For example, the 
cubes of figures 9.1 and 10.1 look distorted. 

So it is essential to produce a projection that displays perspective phenomena 
(that is, parallel lines should meet on the horizon); an object should appear 
smaller as it moves away from the observer. The drawing-board methods devised 
by artists over the centuries are of no value to us. Three-dimensional coordinate 
geometry and the concept of ACTUAL to OBSERVED positions, however 
furnish us with a relatively straightforward technique. 


Figure 11.1 
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What is Perspective Vision? 


To produce a perspective view we introduce.a very simple definition of what we 
mean by vision. We imagine every visible point in space sending out a ray that 
enters the eye. Naturally the eye cannot see all of space, it is limited to a cone of 
rays that fall on the retina, the so-called cone of vision, which is outlined by the 
dashed lines of figure 11.1. The axis of this cone is called the straight-ahead ray. 
We imagine that space has been transformed into the OBSERVED position with 
the eye at the origin and the straight-ahead ray identified with the positive z-axis. 

We place the view plane (which we call the perspective plane in this special 
case) perpendicular to the axis of the cone of vision at a distance d from the eye. 
In order to form the perspective projection we mark the points of intersection of 
each ray with this plane. Since there are an infinity of such rays this appears to 
be an impossible task. Actually the problem is not that great because we need 
consider only those rays that emanate from the important points in the scene; 
that is, the vertices at the ends of line segments or the corners of polygonal 
facets. The final view is formed by relating the projected points on the perspec- 
tive plane in exactly the same way as they are related in three-dimensional 
space, and then identifying the view plane with the graphics screen. 

Figure 11.1 shows a cube observed by an eye and projected on to two planes, 
and the whole scene is drawn in perspective! two example rays are shown: the 
first from the eye to A, one of the near corners of the cube (relative to the eye), 
and the second to B, one of the far corners of the cube. The perspective pro- 
jections of these points on to the near plane are A’ and B’, and on to the far 
plane A” and B”. Note that the projections will have the same shape and 
orientation, but they will be of different sizes. 


Calculation of the Perspective Projection of a Point 


We let the perspective plane be a distance d from the eye (variable PPD in 

later programs). Consider a point P = (x, y, z) in space that sends a ray into the 
eye. We must calculate the point where this line cuts the view plane (the z =d 
plane); suppose it is the point P’ = (x', y’, d). Let us first consider the value of 
y’ by referring to figure 11.2. By similar triangles we see that y'/d = y/z, that is 
y'=y x d/z. Similarly x'=x x d/z. Hence P’=(x x d/z, y x d/z, d). Since the 
view plane is identified with the x/y coordinate system of the graphics screen, 
we can ignore the z = d coordinate. 


Example 11.1 
Calculate the perspective projection of a cube with eight vertices (0, 0, 4) + 
(+1, +1, +1) on the perspective plane z = 4, where the eye is origin and the 
straight-ahead ray is the positive z-axis. 

The space is defined so that the scene is in the OBSERVED position. We can 
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calculate the projections of the eight vertices using the above method. For 
example, (1, 1, 3) is projected to (1 x 4/3, 1 x 4/3, 4) = (4/3, 4/3, 4) > (4/3, 4/3) 
on the screen. So we get the eight projections 


,1,3) > (4/3, 4/3) (1,—1,3) > (4/3, —4/3) 
(-1, 1,3) > (—4/3, 4/3) (—1, -1,3) > (—4/3, —4/3) 
(1,1,5) ~+(4/5,4/5) (1,-1,5) (4/5, —4/5) 
(—1, 1,5) >(—4/5, 4/5)  (—1, -1, 5) > (4/5, —4/5) 


and the resulting diagram is shown in figure 11.3a. 
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Properties of the Perspective Transformation 


(1) The perspective transformation of a straight line (3 say) is a straight line 
([, say). This is obvious because the origin (the eye) and the line '; form a 
plane ({2 say) in three-dimensional space and all the rays emanating from points 
on TP; lie in this plane. (If the line enters the eye, Q degenerates into a line). 
Naturally 2 cuts the perspective plane in a line ', (or degenerates to a point) 
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and so the perspective projection of a point on the original line 3 now lies on 
the new line I’,. It is important to realise that a line does not become curved on 
perspective projection. 

(2) The perspective transformation of a facet (a closed sequence of coplanar line 
segments) is a facet in the perspective plane. If the facet is an area bounded by n 
coplanar line segments, then the transform of this facet is naturally an area in the 
z =d plane bounded by the transforms of the n line segments. Again note that no 
curves are introduced in this projection: if they were, then the task of producing 
perspective pictures would be far more complicated. 

(3) The projection of a convex facet is also convex. Suppose facet F, is project- 
ed on to facet F,. Since the projection of a closed facet is also closed and lines 
go into lines, then points inside F, are projected into points inside F,. Suppose 
F, is not convex: then there exist two points p, and p, inside F, such that the 
line joining them goes outside this facet. Hence there is at least one point p on 
the line outside F,. If p,; and p2 are projections of points qg, and gq, from F,, 
then p is the projection of some point g on the line joining g, and qg,. Since the 
F, is convex then g must be inside F, and thus p must be inside F,: a contra- 
diction, and our proposition is proved. 

(4) All infinitely long parallel lines appear to meet at one point, their so-called 
vanishing point. If we take a general line (with base vector p) from a set of 
parallel lines with direction vector hk 


p+ uh=(Xp, Vp, Zp) + M(Xp, Vn» Zn) 


where z, > 0; then the perspective transform of a general point on this line is 


te +uxn)X d Op + HYn) <) 


(Zp +HZp) (Zp + UZp) 


which can be rewritten as 


(Xn + Xp/u) x d Wn + ¥p/b) x _) 
( (Zn + Zp/t) (Zn + Zp/K) 


As we move along the line towards large z-coordinates (that is, as uy > °°), then 
the line moves towards its vanishing point, which is therefore given by 

(d xX xp/Zp, d X Vp_/Zp). This vanishing point is independent of p, the base point 
of the line, and hence all lines parallel to the direction A have the same vanish- 
ing point. Of course the case z, <0 is ignored because the line would disappear 
outside the cone of vision as up > °°. 

(5) The vanishing points of all lines in parallel planes are collinear. Suppose that 
the set of parallel planes has a common normal direction n = (Xpn,Vn,Zn). Ifa 
general line in one of these planes has direction hk = (xp, Vp, Zn), then A is per- 
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pendicular to n (all lines in these planes are perpendicular to the normal to the 
plane m). Thus n + A = 0, which in coordinate form is 


XX Set Pn OD en Sao 

dividing by z), gives 
Xn X Xn/Zn + Yn X Vn/Zn + Zn = 9 

and so the vanishing point (d x x;,/z,, d X y;,/Zp) lies on the straight line 
x kt Ve RP a Ky O 


and the statement is proved. 


Example 11.2 
Find the vanishing points of the edges of the cube in example 11.1, and of the 
diagonals of its top and bottom planes. 

We divide the twelve edges of the cube into three sets of four edges, each set 
being parallel to the x-axis, y-axis and z-axis respectively and so with directional 
vectors (1, 0,0), (0, 1, 0) and (0, 0, 1). The first two sets have zero z-values, and 
so their extended edges disappear outside the cone of vision and are ignored, 
whereas the third direction has vanishing point (4 x 0/1, 4 x 0/1) =(0, 0) on the 
view plane. On the top and bottom faces the diagonals have directions (1, 0, 1), 
the major diagonal, and (—1, 0, 1), the minor diagonal. The major diagonal on 
the top plane is (—1, 1,3) + w(1, 0, 1), and so the vanishing point is (4 x 1/1, 

4 x 0/1) =(4, 0). The minor diagonal on the top plane is (1, 1,3) + u(—1, 0, 1) 
and the vanishing point is (4 x —1/1, 4 x 0/1) = (—4, 0). By similiar calculations we 
find that the vanishing points of the major and minor diagonals on the lower face 
are also (4, 0) and (—4, 0) respectively. The relevant edges are extended to their 
vanishing points in figure 11.3b. Note that all the lines mentioned lie in the two 
parallel planes (the top and bottom faces of the cube) and so the vanishing points 
should be collinear: since (4, 0), (0, 0) and (—4, 0) ali lie on the x-axis, this is 
obviously true. It can be shown similarly that the vanishing points of the diagon- 
als of the side faces lie on a vertical line through the origin. 


Exercise 11.1 

Draw a perspective view of a tetrahedron with vertices (1, 1,5), (1, —1, 3), 
(—1, 1, 3) and (—1, —1, 5). Find the vanishing points (inside the cone of vision) 
of lines that join pairs of mid-points of edges of the tetrahedron. 
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Programming the Perspective Transformation 


The main program for drawing a perspective view of any scene is the same as 
that for the orthographic view, namely listing 9.2. Again the overall scene is 
created by a call to a routine ‘scene3’ similar to those discussed in chapter 9. We 
shall often need to calculate explicitly the ACTUAL to OBSERVED matrix, so 
that the eye is in the OBSERVED position at the origin looking along the positive 
z-axis. This is achieved by routine ‘look3’, given in chapter 9 (listing 9.1). Calls 
are made to construction routines, each having a matrix R as parameter. Finally 
the figure must be drawn, inside the construction routines or in a ‘drawit’ 
routine. 

The only difference between the program that draws a perspective view and 
the program of chapter 9 (orthographic view) is in the calculation of the co- 
ordinates of the projected image on the view plane. Unlike the orthographic, in 
the perspective projection the coordinates on the view plane cannot be identified 
with the x-value and y-value of the point in the OBSERVED position. We need 
to store the perspective transformation of the vertices in the arrays V and W: the 
I" vertex (X(1), Y(1), Z(1)) in the OBSERVED position is projected to (V(1), 
W(1)). The values in arrays V and W are given by 


V(I) = X()*PPD/Z(I) and W(1)= Y(1)*PPD/Z(1) forl=1,2,..., NOV 


where the value of PPD is set to 3* VERT; the reason for this equation is given in 
the next section. The calculation of V and W can be made in the construction 
routine in the ‘scene3’ or ‘drawit’ routines; this simply depends on the scene 
being considered. 


Example 11.3 
We draw a fixed scene (the two cubes described in example 9.2) in perspective 
from a variety of observation points, setting HORIZ = 9 and VERT = 6. The 
necessary ‘scene3’ routine is given in listing 11.1 below; note that this calculates 
PPD (compare with listing 9.6). This listing places the group of cubes in their 
ACTUAL position using the ‘cube’ routine of listing 9.7, and then loops through 
a number of different OBSERVER positions. For each time through the loop we 
call ‘look3’, which requires (EX, EY, EZ) and (DX, DY, DZ) to calculate the 
ACTUAL to OBSERVER matrix. Then the perspective ‘drawit’ routine (listing 
11.2) is called. This uses the matrix to transform the vertices from their (stored) 
ACTUAL position to the OBSERVER position, and places the projected vertex 
coordinates in arrays V and W, according to the above equations. The routine 
can then finally draw the edges of the cubes in perspective. 

Figure 11.4 was drawn using (EX, EY, EZ) = (15, 10, 5) and (DX, DY, DZ)= 
(0, 0, 0). Compare this with the orthographic view of the same scene given in 
figure 9.2. 
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Listing 11.1 


6000 REM scene3/figure 9.2 (variety cof views) 
6@1@ DIM X(16): DIM Y(16): DIM 2Z(16) 

6020 DIM V(16): DIM W(16): DIM L(2,24) 

6032 DIM AC4,4): DIM BC4,4): DIM R(4,4) 

6040 LET cube = 6502: LET crawit = 7000 

6050 LET PPD = 3*VERT: LEFT NCV = @: LET NOL = @ 
6059 REM place twc cukes im ACTUAL position. 
6062 GO SUB idR3 

6078 GO SUF cule 

6080 LET TX = 3: LET TY = 1.5: LET TZ = 2: GO SUB tran3: GO SUB mult3 
6090 GO SUB cube 

6299 REF Loop through variety of views. 

6120 GO SUB idR3: GC SLB look3 

6112 CLS : GO SUB drawit 

61208 GO TO 6122 

6130 RETURN 


Listing 11.2 


7200 REM drawit/ perspective 

7001 REM IN : PPD,NOV,NOL,XCNOV) ,YCNOV) ,Z(NOV) ,L(2,NOL) ,R(4,4) 
7009 REM put vertices in OBSEFVED position. 

7010 FOR 1 = 1 TO NOV 

7020 LET XxX XCZIHR (1,1) + YCID*RC1,2) + Z2C1)*R(1,3) + RO1,4) 
7030 LET YY = XC(I)*R(2,1) + YCID*RC2,2) + 201)*R(2,3) + R(2,4) 
7049 LET 22 XCID*R(3,1) + YCID*#RCT,2) + ZC1)*R(3,3) + RGG,4) 
7049 REM perspective projection. 

705@ LET V(I) = XX*PPD/ZZ 

706 LET WCI) = YY*PPD/Z2Z 

78708 NEXT I 

707S REM craw Lines. 

7082 FOR I = 1 TO NOL 

7890 LET Li = L{1,1)2 LET Le = (2,19 

7100 LET XPT = V(L1): LET YPT = WCL1): GO SUB moveto 

7118 LET XPT = VCL2): Lf YFT = WC(L2): GO SUB Lineto 

7128 NEXT I 

7130 RETUFN 


Figure 11.4 
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Exercise 11.2 
Draw various perspective views of a wire tetrahedron and a pyramid. 


The Choice of Perspective Plane 


The only value required for the perspective transformation that has not yet been 
discussed is PPD, the distance of the perspective plane from the eye. We can see 
from figure 11.1 that different values of PPD produce pictures of different sizes. 
Which one do we choose? Is there a correct value? 

If we consider the practical situation, we note that the observer is sitting in 
front of a television and the perspective view plane is identified with the plane of 
the television screen. Normally the observer is sitting at a distance that is about 
three times the height of the screen from the terminal. In the scale of our map- 
ping from the real-world to the graphics area of pixels, this is a distance 3* VERT 
(the value we used above). If we choose PPD greater than this value it is as 
though we are creating a close up, and if PPD is less than 3* VERT we get the 
smaller image of a long shot. 


Clipping 


Theoretically, objects may be positioned throughout space, even behind the eye, 
although we consider only points with positive z-coordinates in the OBSERVED 
position. Even so some of these points go outside the cone of vision and become 
invisible. In fact, part of the cone of vision is outside the screen area (we can, 
after all, see the outside of the graphics area). We are left with a subset of the 
cone of vision, the pyramid of vision. Thus all points outside this pyramid (that 
is, those whose perspective transforms take them off the screen) must be ignored. 
We noted that the Spectrum displays an error message whenever we try to DRAW 
a line to a point off the graphics area. It is essential that we use the clipped 
‘lineto’ routine (listing 3.4) in order to avoid any problems. In fact we further 
limit scenes so that all vertices in the OBSERVED position will have positive z- 
values; that is, all objects must lie in front of the eye (although not necessarily 
inside the cone of vision). This will avoid peculiar perspective projections of 
points that lie behind the eye appearing to be on the screen. 


Exercise 11.3 

Experiment with perspective views of all types of wire figures; for example, 
bodies of revolution, regular solids. Consider cases where an object is drawn in- 
side the construction routine; that is, the values of V and W must now be calcu- 
lated here and not in the ‘drawit’ routine. Change the program that drew the jet 
of figure 9.3 so that you get a perspective view; note that the farther the eye gets 
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from the plane the smaller it appears, a phenomenon that does not occur with 
the orthographic projection. 


Exercise 11.4 
Write a hidden line algorithm for a single convex body, similar to that given in 
chapter 10. 

Note that since a convex facet is projected into a convex polygonal area in the 
view plane, all we need do is calculate the coordinates of the vertices of the 
projected facet, and hence find whether the facet is in anti-clockwise (in which 
case we draw it) or clockwise order (in which case it is ignored). 


Exercise 11.5 
Write a program that draws a perspective view of a mathematical surface, similar 
to that given in chapter 10. The method will be exactly equivalent to listing 10.4, 


with the exception that you must work with the V/W values rather than the 
X/Y arrays. 


These hidden surface and line algorithms are perfectly adequate for specially 
defined single objects, but we must now consider the more general case where a 
number of objects are scattered about space. 


Complete Programs 


I. ‘lib1’, ‘lib3’ and listings 9.4 (‘cube’), 11.1 (‘scene3’) and 11.2 (‘drawit’). Data 
required: HORIZ, VERT, and repeated values for (EX, EY, EZ) and 
(DX, DY, DZ). Try 9, 6, (5, 15, 10) and (0, 0, 0); (1, 2, 20) and (0, 0, 1). 


12 A General-purpose Hidden Line 
Algorithm 


As in previous chapters, we assume that objects are set up by the ‘scene3’ 
routine, but now insist that the NOV vertices in the scene are stored in the X, 
Y,and Z arrays. Their perspective projections on to the view plane are stored in 
arrays V and W. The NOF facets are stored as a list of vertex indices (a maximum 
of six) in array F, and the number of edges on any facet is placed in array H. 

We assume that all objects are closed. Each object need not be convex but its 
surface must be composed of convex facets that are stored in anti-clockwise 
orientation. Thus it is impossible to see the underside of any facet; that is, when 
projected on to the view plane we see only facets that maintain their anti-clock- 
wise orientation. Strictly speaking, this means that we cannot draw planar objects. 
If these are required for a particular scene then we avoid the problem by storing 
each facet of a planar object twice — once clockwise and once anti-clockwise — 
so whatever the position of the eye, on perspective projection we see one and 
only one occurrence of the facet. We assume also that all lines in the scene are 
the edges of two contiguous facets: if a single line is required it is stored as a 
degenerate planar facet with two edges. These restrictions were imposed to speed 
up the hidden line algorithm. This is very necessary because we are now approach- 
ing the limits of the processing power of the Spectrum. Even simple pictures like 
the two cubes in figure 12.1 take over 5 minutes to draw, the two stars of figure 
12.2 take over 30 minutes. The Spectrum was never intended to run such com- 
plex algorithms, and so it is great credit to the Sinclair design team that the 
Spectrum does achieve such very good results. 

Nevertheless, we think it is important to study general hidden line algorithms 
for educational reasons. It is essential for anyone with more than a passing 
interest in computer graphics to understand the problems implicit in drawing 
views of three-dimensional objects with the hidden lines suppressed. The routine 
given in listing 12.1 is such a hidden line algorithm, which can be transferred to 
larger machines where it will run with ease. If you get the opportunity to use 
more powerful computers it will be very instructive to run our programs on them. 

In order to produce a hidden line picture of a scene stored in the OBSERVED 
position, every line on the objects in the scene must be compared with every 
facet. Because of the above restrictions we need compare the lines only with the 
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visible facets; that is, those that, when projected, keep their anti-clockwise 
orientation. 

Let us assume that a typical line [3 in the OBSERVED position joins the two 
points (x,’, y1', z,') and (x2', y2', z2’), and so a general point on this line is 


(1 — 9) avi) z,') ty o(x2', V2, Z7') 


We suppose that these two end points are projected on to the two points (x,, ¥1) 
and (x2, v2) in the perspective view plane. Thus I; is projected on to this plane 
as aline I, with general point 


(1 — #) 1, ¥1) + U2, V2) 


Note that the point (1 — ¢) (x1', ¥1, 21') + 6(X2', 2’, Z2') does not necessarily 
transform into the point (1 — ¢) (x1, ¥1) + 6(%2, ¥2): that is, @ need not equal yp. 

We let a typical facet 23 be projected on to an area (2, in the view plane and 
assume that the H vertices on this projected facet are (x; ¥;), where 1<i<H . 
Let the i edge of 2, intersect I, at (1 — Aj) (Xj, ¥;) + AG (Ki41,Hi41)- If 
A; <OorA;> 1 then I, intersects the extended i edge at a point outside the 
area Q,: ifO0<A,;<1 then I’, crosses the area (2, at a point on the i” edge. 
Since the projected projection of a convex facet is convex, then the number of 
crossing points is either zero (and there is no point of intersection) or two 
(perhaps coincident). We need consider only the case of two non-coincident 
points: suppose their p values on Py are Umin and Umax Where Mmin <Mmax- 50 
the points of intersection on I are (1 — tmin) (X1, ¥1) + Umin(*2, ¥2) and 
(1 = Umax) 1, Vi) + Mmax(%2; V2). 

It is now necessary to discover whether the subsegment of ', between these 
two points is visible or not. This is checked by finding the mid-point of the 
segment (Xmia, Vmia) = (1 — Mmia) 1, ¥1) + Mmia(%2, ¥2), where Umia = 
(mia + Mmax)/2. We then find the point (x, y, Z) on I’; that has (Xmig, Ymia) 
as its perspective projection. The segment of line between the points with y 
values {min 2d Umax is hidden if and only if (x, }, Z) and the eye are on opposite 
sides of the infinite plane containing 2.3. The equation of the plane is found 
using the methods described in chapter 7, and the functional representation of 
the plane is used to check the above requirement. 

Note that **PPD/Z = x pig, ¥*PPD/Z = ymia, and (x, J, Z) lies on T'3. So for 
some value of @ 


K=(1 —o)xy' + Ox’, H=(1—O)y1' + Gyo’, and Z=(1 —¢)z,'+ Gz’ 
Hence 


_ (x1' + O(x2' — x,'))*PPD 


mid = 
; Zz; +¢@,' —2,') 
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and 


4, (v1' + 6(2' — y1'))*PPD 
Ymid = ; ; 3 
Z; +O(Z2 —21) 


that is 


Xmid*#Z1. — X;'*PPD 


(x2' — x4')*PPD — xXmia*(Z2' — 21’) 


_ ___ Ymia*21' —¥1'4PPD 


(v2' — y,')*PPD —Ymia*(Z2" = Z1') 


This enables us to calculate @, and hence (X, ), 2), which in turn is used to find 
whether the subsegment I, is visible or not. 

The algorithm given in routine ‘hidden’, listing 12.1, compares each line on 
the objects with all the visible (anti-clockwise) facets. Note that all objects are 
considered solid; that is, no individual planar facet occurs in such a way that it is 
possible to see its underside (clockwise orientation). The lines are implicitly 
stored in the facet data, and each line occurs twice, once from vertex IV1 to 
vertex IV2 (say) and once from vertex 1V2 to IV1. Rather than duplicate effort 
we consider onty the case when [V1 <I[V2. Furthermore we compare the lines 
with visible facets only, for if a line is partially obscured by a hidden facet (one 
with clockwise orientation) then the invisible part of that line must also be 
obscured by anti-clockwise facets. 

Let us assume that at the time of comparing the line ', , which joins vertices 
IV1 to IV2 with the K™ facet, we have calculated NRL visible subsegments of 
the line: NRL is assumed to be less than 50. The p values for the end points of 
the M' visible segment are stored in array L at L(1,M) and L(2,M). Initially 
NRL = 1, L(1, 1) = 0 and L(2, 1) = 1; that is, the complete line is assumed to be 
visible. If at this stage a new hidden segment is discovered, specified by the values 
Mmin and Umax (the variables MIN and MAX), then the values in the L array and 
NRL have to be adjusted accordingly. 

When the line has been compared with all visible facets we are left with the 
NRL visible segments that can then be drawn on the screen. If at any time NRL 
becomes zero then the line is totally obscured and there is no need to continue 
with comparisons with other facets. 


Example 12.1 

We can now draw a hidden line, perspective view of the scene we first saw in 
figure 9.2: one of the two cubes shown in figure 12.1. The scene has HORIZ = 9, 
VERT = 6 and is viewed from (15, 10, 5) to (0, 0, 0). 
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Listing 12.1 


7000 
7001 


7018 
7018 
7219 
7020 
7038 
7048 
7850 
7060 
7070 
7088 
7098 
7100 
7109 
7110 
7120 
7130 
7140 
7158 
7168 
7178 
7179 
7188 
7198 
7200 
7209 
7210 
7220 
7230 
7248 
7249 


7258 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
T3350 
7340 
7350 
7360 
7369 
7370 
7380 
7398 
7400 
7418 
7420 
7430 
7448 
7449 
7458 
7460 
7470 
7479 


REM hidden/general hidden Line algorithm 

REM Ik : MCV,NOL,XCNOV),YCNOV),ZCNOV) ,VCNOV) ,WONCV) , 
F(6,NOF) ,HCNOF) ,PPD,R(4,4) 

DIM L(Z,50): DIM GCNOF): LET EPS = @.@02001 

REM check on I'th projected facet : anticlockwise set G(1I)=1 

REM clockwise or decererate set G(1)=0. 

FOR I = 1 TO NOF 


LET 2 
LET I2 
LET G 


to ot it 


FCT, 1) LET XI 
F(2,1): LET x2 
E3520 5 LET X35 


VCII9e Ler Ya 
v(I2): LET Y2 
VCIS)s KET YS 


wCI1) 
wCI2) 
WC13) 


tou 


tow ou 


LET DX1 = X2 - X14: LET DY1 = Y2 - Y1 


LET DX2 
LET GCI) = 


XS: = X22 LET YZ 


0 


ot 


Ys= YZ. 


IF DX1*DY2 - DX2*DY1 > @ AND H(I) > 2 THEN LET GCI) = 1 


NEXT I 


REM find J'th Line on the edge of I'th facet. 
FOR 1 = 4 TO NOF 


LET HH 


HCI): LET IV1 = FCHH,1) 


LET X1 = VCIV1): LET Y1 = WCIV1) 
FOR J = 1 TO HH 

LET Iv2 = F(J,1) 

LET X2 = VCIV2): LET Y2 = WCIV2) 
IF IV1 > IV2 THEN GO TO 8168 

REM initialise variables. 

LET NRL = 1: 
LET CA = X2 - Xi: LET CB = Y1 - Y2 


LET CC 


LET £(1,1) = @: LET L(2,1) = 1 


-X1*CB - Y1*CA 


REM compare this Line with the K'th facet. 
FOR K = 1 TO NOF 

IF G(K) = @ THEN GO TO 8040 

IF K = I THEN GO TO 8840 


LET IN = H(K) 


REM lLocp to find two points of intersection of projected Line with 
projected facet. These points specified by MU values MIN and MAX. 


LET MAX = -1: 


LET Jv1 
LET VX1 
LET $1 

FOR M = 
LET JV2 
LET VX2 


foo 


1 


bh he 


LET MIN = 2 


FCIN,K) 

VCJV4): LET wY¥1 = wOJVv1) 
SGN (CA*WY1 + CBAVX1 + CC) 
TO IN 

F(M,K) 

V(JV2): LET kY2 = WCJV2) 


LET S2 =SGN (CA*WY2 + CB*VX2 + CC) 

IF $1 = S2 THEN GO TO 7500 

LET XE = VX1 - VX2: LET YE = WY1 - WY2 
LET XF = VX1 — X21: LET YF = WYi - Y1 
CA*YE + CB*XE 


LET DISC = 
REM if Line 
IF ABS DISC 
IF ABS CA > 
IF ABS XF < 
GO TO 7500 
LET LAMBDA 
IF ABS (XF 
GO TO 7500 
LET LAMBDA 


+ 


is parallel to a Line on the facet then exit facet Loop. 
> EPS THEN GO TO 744? 

EPS THEN GO TO 7418 

EPS THEN GO TO 8048 


XF/CA 
LAMBDA*CE) < EPS THEN GO TO 8840 


(CAXYF + CB*XF)/DISC 


REM if Line misses K'th facet then go to next facet. 
IF LAMBDA < -EPS THEN GO TO 7582 

IF LAMBDA > 1 + EPS THEN GO TO 750 

LET MU = (CYE*XF ~— XE*YF)/DISC 

REM a true intersection so update MAX and MIN. 
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7480 IF MAX < MU THEN LET MAX 
7490 IF MIN > MU THEN LET MIN 
750M LET S1 = $2 
7510 LET VX1 = VX2: LET WY1 = WY2 
752Q NEXT M 
7529 REM check if intersections Lie between specified endpoints of Line. 
7530 IF MIN > 1 THEN GO TO 80849 
754@ IF MAX < ® THEN GO TO 8040 
755@ IF MAX > 1 THEN LET MAX = 1 

< 


MU 
MU 


Wout 


7568 IF MIN ® THEN LET MIN = @ 

7570 IF MAX MIN < EPS THEN GO TO 8840 

7579 REM calculate XMID and YMID. 

7580 LET MID = (MAX + MIN)*@.5: LET MUD = 1 — MID 

7598 LET XMID MUD*X1 + MID*X2 

7602 LET YMID = MUD*Y17 + MID*Y2 

7619 LET DENOM = PPD*(XCIV2) -— XCIV1)) - XMID*(ZCIV2) - ZC1IV1)) 
7620 IF ABS DENOM < EPS THEN GO TO 7658 

7629 REM calculate PHI and hence XHAT, YHAT and ZHAT. 

7630 LET PHI = (XMID*Z(IV1) - PPD*X(IV1))/DENOM 

7648 GO TO 7678 

7658 LET DENOM = PPD*(YCIV2) - YC1V1)) - YMID*(Z(IV2) - ZCIV1)) 
7660 LET PHI = CYMID*ZCIV1) - PPD*YCIV1))/DENOM 

7670 LET ZHAT = (1 - PHI)*Z(IV1) + PHI*Z(IV2) 

7688 LET FACT ZHAT/PPD 

7690 LET XHAT XMID*FACT: LET YHAT = YMID*FACT 

7699 REM calculate coefficients of plane containing facet: A,B,C and D. 
7700 LET Jv1 F(1,K): LET JV2 =F(2,K): LET JV3 = F(3,K) 

7712 LET Dx1 KXCINT) - XCIV2) 

7720 LET Dx3 X(JV3) - XCJV2) 

7730 LET DY1 YQJV1) - YCJV2) 


wou 


HoH An WoW on 


7748 LET DY3 YC(JV3) - YCJV2) 
7750 LET DZ1 Z2(JV1) - ZCJV2) 
7768 LET Dz3 Z(JV3) - Z¢JV2) 
7778 LET A = DY1*DZ3 - DY3*DZ1 
7788 LET B = DZ1*DX3 ~- DZ3*DX1 
7798 LET C = DX1*bY3 - DX3*DY1 
7802 LET D = AkX(JV1) + BRYC(JV1) + C#ZCJV1) 


7810 LET $1 = A*xXHAT + B*YHAT + C*ZHAT - CD 

7819 REM if facet hides part of Line then change the L array. 
7820 IF ABS S1 < EPS THEN GO TO 8242 

7&2 IF ABS (SGN $1 + SGN D) < 2 THEN GO TO 8040 
784@ LET MORE = NRL 

785@ FOR M= 1 TO NRL 

7860 LET R1 = L(1,M): LET R2 = L(2,™) 

7870 IF (R1 > MAX) OR (R2 < MIM) THEN GO TO 7960 
7880 IF (R1 >= MIN) AND (R2 <= MAX) THEN GO TO 7950 
7898 IF (R1 < MIN) AND (R2 > MAX) THEN GO TO 7920 
7900 IF (R1 < MIN) THEN GU TO 7948 

7910 LET L(1,M) = MAX: GO TO 7960 

7928 LET MORE = MORE + 1 

7930 LET L(1,MORE) = MAX: LET L(2,MORE) = R2 

7940 LET L(2,M) = MIN: GO TO 7960 

7S9SE LET L¢1,™) =1 

7960 NEXT M 

7969 REM tidy up the L array. 

7970 LET NRL = @ 

7988 FOR M= 1 TO MORE 

7990 IF L(1,M) < - EPS THEN GO TO 8828 

8020 LET NFL = NRL + 1 

8012 LET L(1,NRL) = L(1,M): LET L¢2,NRL) = L(2,M) 
8820 NEXT M 

8@32 IF NRL = @ THEN GO TO 8160 
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8842 NEXT K 

8049 PEF craw visible parts of Line ( if any ). 
8052 FOR kK = 1 TO NRL 

8060 LET R1 = L(1,K): LET R2 = 1 - Ri 

8070 LET xP1 = 

8080 LET YP1 = Y1*R2 + Y2*R1 

8092 LET R1 LC25Ke LET R20= 1 — RI 

81¢0 LET xP2 X1*R2 + X2*R1 

8118 LET YP2 = Y1*R2 + Y2*R1 

8120 IF (ABS (XP1-XP2) < EPS) AND (ABS (YP1-YP2) < EPS) THEN GO TO 8150 
8130 LET XPT MP1s LET YPT YP1: GO SUB moveto 

8140 LET YPT XP2: LET YPT yP2: GO SUB Lineto 

815@ NEXT K 
8160 LET Iv1 
8170 NEXT J 
8180 NEXT I 
8190 RETURN 


i 


uinah ot 


Wot 


IV2: LET x1 = X2: LET Y1 = Y2 


Figure 12.1 


We use ‘lib1’, ‘lib3’ and ‘hidden’ (listing 12.1) together with the ‘scene3’ and 
‘cube’ routines given in listing 12.2. This last version of ‘cube’ means that we 
have considered all the array methods of constructing an object; that is, stored/ 
not stored, lines/facets. We deliberately used the cube over and over again in our 
diagrams because it is such a simple object and it is easy to understand its various 
constructions, and therefore it does not complicate our discussion of the general 
principles of three-dimensional graphics. Now is the time to introduce complexity 
into our objects: provided that you understand the limitations of the algorithms 
then the ideas we have discussed will be equally valid. Users with the 16K 
Spectrum will find that programs of this complexity will not fit into their 
machines. Such programs must be broken into independent sections and object 
data and arrays must be stored temporarily on tape. 
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Listing 12.2 


6000 REM scene3/figure 12.1 

6018 DIM X(16): DIM Y(16): DIM 2(16) 

6020 DIM V(16): DIM W(16): DIM F(4,12): DIM H(12) 

6032 DIM A(4,4): DIM B(4,4): DIM R(4,4): DIM Q(4,4) 

604@ LET cube = 6580: LET hidden = 7802 

6050 LET FPD = 3*VERT: LET NOV = @: LET NOF = @ 

6059 REM put first cube in OBSERVED position : ( ACTUAL=SETUP). 
6860 GO SUB idR3: GO SUB took3 

6072 GO SUB cube 

6079 REM copy ACTUAL to OBSERVED matrix into Q. 

6088 FOR I= 1 T0 4: FOR J =1 704 

6098 LET Q(1,J) = R(I,J) 

6100 NEXT J: NEXT I: GO SUB idR3 

6109 REM calculate SETUP to ACTUAL matrix. 

6110 LET TX = 3: LET TY = 1.5: LET TZ = 2: GO SUB tran3: GO SUB mult3 
6119 REM recover ACTUAL to OBSERVED matrix. 

6120 FOR T= 1 TO 4: FOR J = 1 TO4 

6138 LET ACI,J) = Q(1,J) 

6148 NEXT J: NEXT I 

6149 REM calculate SETUP to OBSERVED matrix. 

6158 GO SUB muLlt3 

6159 REM place second cube and draw hidden Line view of scene. 
6160 GO SUB cube 

6170 GO SUB hidden 

6188 RETURN 


6500 REM cube/ vertices and facets (stored) 

6501 REM IN : PPD,NOV,NOF,XCNOV),YCNOV) ,ZCNOV) ,VCNOV) ,WCNOV) 
F(4,NOF),HCNOF) ,R(4,4) 

6582 REM OUT : NOV,NOF,XCNOV),YCNOV) ,ZCNOV) ,VCNOV) ,WCNOV) 
F(4,NOF) ,RCNOF) 

6519 DATA 1,71, Tele-tp Tertects Vents) s —t, 

6520 DATA 1,2,3,4, 5/8,7,6,. ee 2,6 al p30 

6530 RESTORE cube 

6539 REM extend data base of vertices in OBSERVED position. 

6548 LET NV = NOV 

6550 FOR I= 1 TO 8 

6560 READ XX,YY,ZZ: LET NOV = NOV + 1 

6578 LET XCNOV) = XX*R(1,1) + YY*RC1,2) + ZZ*R(1,3) + R(1,4) 

6580 LET YCNOV) = XX*R(2,1) + YY*R(2,2) + ZZ*R(2,3) + R(2,4) 

6598 LET ZCNOV) = XX*R(3,1) + YY*R(3,2) + 2Z*R(3,3) + R(3,4) 

6599 REM perspective transform. 

6602 LET VCNOV) = PPD*X (NOV) /Z(NOV) 

6612 LET WCNOV) = PPD*YCNOV)/ZCNOV) 

6628 NEXT I 

6629 REM read and extend data base of facets. 

6630 FOR I= 1 T0 6 

6640 READ F1,F2,F3,F4: LET NOF = NOF + 1 

6658 LET H(NOF) = 4 

6668 LET F(1,NOF) = F1 + NV: LET F(2,NOF) 

6670 LET F(3,NOF) = F3 + NV: LET F(4,NOF) 

6688 NEXT I 

6698 RETURN 


Niglp Ht yploeip. “let lenly “Morte 
3,7,8,4, 4,8,5,1 
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Listing 12.3 


6500 
6501 
6510 


6520 


6538 
6548 
6558 
6560 
6578 
6588 
6598 
6600 
6610 
6620 
6632 
6649 
6658 
6668 
6678 
6688 


REM icosa/hedron 


REM IN and OUT : same as cube above. 
DATA 9,1,T, Te@ely 1,78, O571,T, 1,8,-1, -1-7-8, 8,15-T 
-7,0,1, 1,-1,0, @,-1,-T, -7,8,-1, -1 771,82 


DATA 1,3,2, 1,2,4, 1,4,8, 1/8/67 16/3, 2,354 2,974, 4,12, 
8,116, 3,6,7, 2/5/94 49,12, 8,12,11, 6,11,7, 3,7,5, 5/10, 


9,18,12, 12,10,11, 11,10,7, 7,18,5 
(1 + SQR 5)/2 


RESTORE icosa: LET T = 
LET NV = NOV 

FOR 1 = 1 TO 12 

READ XX,YY,ZZ: LET NOV 
LET XCNOV) = XX*R(1,1) 


+ 
ra 


NOV + 1 
YY*R(1,2) + 


LET YCNOV) = XX*R(2,1) YY*R(2,2) + 
LET ZCNOV) = XX*R(3,1) + YY*R(3,2) + 
LET VCNOV) = X(NOV)*PPD/ZCNOV) 

LET WCNOV) = YCNOV)*PPD/ZCNOV) 

NEXT I 

FOR I= 1 TO 20 


READ F1,F2,F3: LET NOF 
LET H(NOF) = 3 


NOF + 1 


LET F(1,NOF) = F1 + NV: LET F(2,NOF) 


NEXT I 
RETURN 


Listing 12.4 


6722 
6701 
6719 


6720 
67308 
6748 
6758 
6760 
6770 
6780 
6798 
6800 
6812 
6828 
6830 
6848 
6858 
6860 
6870 


6888 
6898 
6900 
6910 
6920 
6930 
6948 


REM cuboct/ahedron 


REM IN and OUT : same as cube above. 


DATA @,1,1, 1,8,1, 1,1,8, 0,-1,1, 


ZZ*R(1,3) + R(1,4) 
Z2Z*R(2,3) + R(2,4) 
ZZ*R(3,3) + R(3,4) 


= F2 + NV: LET FC(3,NOF) 


1,8,-1, “171,98, 951,-1 


=1 8,1, 1,-1,8, 0,-1,-1, -1,8,-1, -1,-1 8 


DATA 1,2,4,8, 1,6,7 35 2p330%r %99,1B,12, 5,7/11,1B, 6,8,12,11 


8 
9 


Fa + NV 


DATA 1,3,2, 1,856, 25,9545 347,55 4,12,8, 5,10,9, 6,11,7, 12,11,12 


RESTORE cuboct 

LET NV = NOV 

FOR T= 1 TO 12 

READ XX,YY,ZZ: LET NCV 
LET XCNOV) = XX*R(1,1) 


+ 
+ 


NOV + 1 
YY#R(1,2) + 


LET YCNOV) = XX*R(2,1) + YY#R(2,2) + 
LET ZCNOV) = XX*R(3,1) + YY#R(3,2) + 
LET VCNOV) = X(NOV) *PPD/Z(NOV) 

LET WCNOV) = YCNOV)*PPD/ZCNOV) 

NEXT I 


FOR T= 1 10 6 


READ F1,F2,F3,F4: LET NOF 


LET HCNOF) = 4 


= NOF + 1 


LET F(1,NOF) = F1 + NV: LET F(2,NOF) 
>: LET FC4,NOF) = F& + NV 


NEXT I 

FOR T= 1 TO 8 

READ F1,F2,F3: LET NOF 
LET HCNOF) = 3 


NOF + 1 


LET F(1,NOF) = F1 + NV: LET F(2,NOF) 


NEXT I 
RETURN 


ZZ*R(1,3) + R(1,4) 
ZZ*R(2,3) + R(2,4) 
ZZ*R(3,3) + R(3,4) 


Fe + NV: LET F(3,NOF) 


= F2 + NV: LET F(3,NOF) 


F3 + NV 


F3 + NV 
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Exercise 12.1 

Construct hidden line scenes composed of cubes, tetrahedra, pyramids, octa- 
hedra, cuboctahedra, icosahedra. To help you, listings 12.3 and 12.4 give con- 
struction routines for a cuboctahedron and icosahedron. Write your own routines 
for an octahedron, and perhaps even more complicated objects like the rhombic 
dodecahedron (see Coxeter, 1974). 


Listing 12.5 


602) REM scene3/two stars hidden lines removed 
6012 DIM X(22): DIM Y(22): DIM 2(2z2) 

6020 DIM V(22): DIM W(22): DIM F(3,36): DIM H(36) 
6032 DIM AC4,4): DIM BC 4,4): DIM R(4,4): DIM Q(4,4) 
6040 LET star? = 6500: LET star2 = 6700: LET hidden = 7020 
6@5@ LET PPD = 3*VERT: LET NOV = @: LET NOF = @ 
6@5° REM place first star. 

6860 GO SUB idR3: GO SLB Lcok3 

6070 LET A = 6: GO SUB start 

6080 FOR I= 1 TO 4: FOR J =1 T04 

6090 LET Q(I,J) = R(I,J) 

6120 NEXT J: NEXT 1: GO SUB jidR3 

6129 REM place second star. 

6118 LET TX = 5: LET TY = 5: LET TZ = 5: GO SUB tran3: GO SUB mult3 
6120 FOR T= 1 TO 4: FOR J =1 T0 4 

6138 LET ACI,J) = Q(1,J) 

614@ NEXT J: NEXT I 

615@ GO SUB mult3 

6160 LET A = 4: GC SUB star2 

6178 GO SUB hidden 

6180 RETURN 


Listing 12.6 


6500 REM start 
6501 REM IN and OUT : same as cube above. 
6509 REM star based on a cube. 


6510 DATA 151505 TiAl, Ventecls: Tented ct ale Tel opmts went ent, m1 e-T ele 
A,O,@, -A,0,0, @,4,0, 0,-2,0, @,0,A, 0,2,-A 

6520 DATA 1,2,9, 2,359, 35409 4e1594 6,5,10, 5,8,10, 8,7,10, 7,6,10, 
Sel slig. Upp lly. Sep lle Ose rl ly Seceles. Set oly TyBslep BAe lee 
1,6135 4,813; 855135 571,135 352715, 276,145 6,7 145 0,3,1% 

653@ RESTORE start 

654@ LET AV = NOV 

6550 FOR I= 1 TO 14 

656@ READ XX,YY,Z2: LET NOV NOV + 1 


657@ LET X(NOV) 
6580 LET Y(NOV) 
6598 LET ZC(NOV) 
6600 LET VCNOV) 
6612 LET WCNOV) 
6620 NEXT I 
6638 FOR I= 1 TO 24 

664 READ F1,F2,F3: LET NOF = NOF + 1 

6658 LET H(NOF) = 3 

6662 LET F(1,NOF) = F1 + NV: LET F(2,NOF) = F2 + NV: LET F(3,NOF) = F3 + NV 
667@ NEXT I 

6682 RETURN 


XX*R(1,1) + YYARC1,2) + ZZ#*R(1,3) + RO1,4) 
XX#R(2,1) + YYRR(Z,2) + ZZ*R(2,3) + R(2,4) 
XX#R(3,1) + YY*R(3,2) + ZZ*R(3,3) + RC3,4) 
PPD *X (NOV) / ZC NOV) 
PPD*Y (NOV) /Z(NOV) 


tow ot th ott 
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Listing 12.7 
67@2 KEM star2 
6781 REM IN end OLT : same as cube above. 
6709 REM star based on a tetrahedron. 
6719 DATA 1,1,1, Vy-1y-1, -Velenmts “Vertes mAymApm Ay ~Ay Ag Ay Ay-A, Ay ApApmA 
Gr2B DATA 2218... 352,852 ApopBee Wiscrle Srlel se cotets 
LpS ge > Spl poe) Seityoe! Solple Hed eOF 17550 
6730 RESTORE star2 
67428 LET NV = NOV 
675@ FOR I= 1 TO 8 
6760 READ XX,YY,ZZ: LET NOV = NOV +1 
6778 LET XCNOV) = XX*R(1,1) + YY*RC1,2) + ZZ*R(1,3) + R(1,4) 
6780 LET YCNOV) = XX#RC2,1) + YY*RC2,2) + ZZ*R(2,3) + R(2,4) 
6790 LET Z(NOV) = XX*R(3,1) + YY*R(3,2) + Z2Z2*R(3,3) + R(3,4) 
6800 LET VCNOV) = PPD*X (NOV) /ZCNOV) 
6810 LET WCNOV) = PPD*Y (NOV) /Z(NOV) 
6828 NEXT I 
6838 FOR I= 1 TO 12 
6840 READ F1,F2,F3: LET NOF = NOF + 1 
6850 LET HCNOF) = 2 
6860 LET F(1,NOF) = F1 + NV: LET FC(2,NOF) = F2 + NV: LET FC(3,NOF) = F3 + NV 


6e70 
6882 


NEXT I 
RETURN 


Example 12.2 

By now you will have realised that hidden line algorithms are very slow programs 
— we have to make a large number of comparisons. It takes at least 5 minutes to 
draw the two cubes of figure 12.1. This means that we are rather limited in the 
scope of objects we can draw. Nevertheless it is very good practice, and if you 
have the opportunity to use larger machines you will see that the above algor- 
ithm will work on these also, but much faster. We give a ‘scene3’ routine in 
listing 12.5 and examples of two three-dimensional star-shaped objects in list- 
ings 12.6 and 12.7 (both require a parameter A that changes the elongation of 
the spikes). These two ‘star’ routines are based on the tetrahedron and cube. 
Figure 12.2 was drawn with HORIZ = 48, VERT = 32, viewed from (35, 20, 25) 
towards (0, 0, 0). 


Figure 12.2 
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Exercise 12.2 

The program in listing 10.1 checks that the order of the vertices of a triangular 
facet are anti-clockwise. The program was devised for use with convex bodies 
containing the origin. Extend it so that it can cope with the most general case; 
that is, specify the position of the observer and the coordinates of a point inside 
the object (not necessarily the origin) so that this point and the observer lie on 
opposite sides of the infinite plane containing the facet. Use this program to 
check the above star-shaped objects (in fact for these figures the origin could act 
as the inside point). 

Then produce your own star-shaped objects based on an octahedron, cubocta- 
hedron, icosahedron or dodecahedron. Always check the order of the vertices in 
your facets. You can produce stars based on very simple bodies of revolution, 
and we need not limit ourselves to symmetrical objects! For non-symmetrical 
shapes you really need the extended version of program 10.1. Provided that you 
stay within the restrictions mentioned, then listing 12.1 will draw any shape. 


Exercise 12.3 

Add extra information about the objects you are setting up. As well as the ver- 
tex and facet information, introduce another array L such that L(1,]) and 
L(2,]) hold the indices of the two facets that have the I" line as their intersec- 
tion, 1 <1 << NOL. Then change the hidden line algorithm so that it ignores any 
line that borders two invisible (clockwise) facets, and does not compare a facet 
with lines that lie in that facet. 


Now you have read (and understood) chapters 7 to 12 you will have found 
that we have reached the limits of three-dimensional graphics on the Spectrum. 
You must have access to larger computers if you wish to go further in your study 
of this type of computer graphics. Moreover, you must study the techniques of 
using data structures, as opposed to arrays, for setting up scenes. For example, a 
complete scene can be regarded as a linked list of pointers, each of which refers 
to a linked list of information about the facets on a particular type of object. The 
facets themselves can be stored as lists of vertices! A seemingly complex idea, but 
one that makes the context checking of such programs as hidden line algor- 
ithms very much simpler. The relationships between objects and facets are 
implicitly stored in the lists. When you have grasped these ideas you can go on 
to the complicated graphics algorithms including methods for animating, colour- 
ing and shading. We recommend books by Horowitz and Sahni (1976), and 
Knuth (1972, 1973, 1981) for the study data structures, and by Newman and 
Sproull (1973) for the really complex graphics methods. In the next chapter we 
take a look at more advanced character graphics and introduce one method of 
producing animated three-dimensional drawings. 
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Complete Programs 


1. ‘lib1’, ‘lib3’, listings 12.1 (Shidden’) and 12.2 (‘scene3’ and ‘cube’). Data 
required: HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ). Try (a) 9, 6, 
(15, 10, 5), (0, 0, 0); (b) 9, 6, (—10, 10, —10), (0, 1, 0). 

II. ‘lib1’, ‘lib3’, listings 12.1 (‘hidden’) and 12.2 (‘scene3’). MERGE listing 12.3 
(‘icosa’) and 12.4 (‘cuboct’) and change the ‘scene3’ routine as follows 


6010 DIM X(24): DIM Y(24): DIM Z(24) 
6020 DIM V(24): DIM W(24): DIM F(4, 34): DIM H(34) 


6040 LET cuboct=6700: LET icosa=6500: LET hidden=7000 
6070 GO SUB icosa 
6160 GO SUB cuboct 
Data required: HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ). Try (a) 9, 6, 
(15, 10, 5), (O, 0, 0); (b) 9, 6, (—10, 10, 10), (0, 1, 0). 
II. ‘lib1’, ‘lib3’, listings 12.1 (Shidden’), 12.5 (‘scene3’), 12.6 (‘star1”) and 12.7 


(‘star2’). Data required: HORIZ, VERT, (EX. EY, EZ), (DX, DY, DZ). Try 
(a) 60, 40, (10, 20, 30), (0, 0, 0); (b) 90, 60, (—10, 20, —10), (0, 1, 0). 


13 Advanced Programming Techniques 


To give your programs that really professional quality it is essential to make 
them user friendly . This is one of the few pieces of advertising jargon that 
actually bears any relation to reality: it is essential to make programs easy to 
use, not just for yourself but for other people. We have all returned to programs 
written in a hurry three months previously, only to find that they are so badly 
structured/commented that we cannot understand them, It is good programming 
practice to comment on your programs as well as making their output seif- 
explanatory. Ensure that the prompts displayed while you are actually RUNning 
the program are clear and concise. Another simple way of providing help is to 
include an introductory instruction routine as found on most video games. 

In programs where a set of routines can be used in any sequence or combina- 
tion, the usual method of providing for selection between options is the menu 
(see the CHARACTER GENERATOR program in chapter 5). Provided that the 
prompts are appropriate to the actions they initiate, this method is especially 
useful for people who do not understand the details of the program and are 
using it only as a drawing tool. Common sense plays its part in deciding what 
prompts should be issued. Avoid such classic misprompts as PRESS 1 FOR 
DUPLICATE DATA OR 2 FOR SINGLE DATA. If possible use cursor keys for 
movements about the screen (see option 3 of the CHARACTER GENERATOR 
program in chapter 5): this will seem natural to any regular user of the Spectrum. 
Listing 13.1 shows a program that might be used to draw polygons (as in exer- 
cise 1.3). The ‘input’ routine uses the ‘EDIT’ and cursor keys and is designed for 
people familiar with programming on the Spectrum. 


Control Codes 


The INPUT command can be used to issue a prompt immediately prior to any 
request for a data item. In most cases we just place the prompt, enclosed in 
quotes, in the exact form we wish to be displayed, before the item in the INPUT 
statement. On the Spectrum we can force the evaluation of any string expression, 
including function calls, by placing brackets around the expression. In this way it 
will be treated as though it were a prompt in quotes. This method is used simply 
in the above listing but we can produce far more complex prompts. By building 
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10 DIM X(1B): DIM Y(1@) 
20 LET input = 200: LET List = 300 
3@ GO SUB input 
40 PLOT X(10),Y(12): LET OX = X(1M): LET OY = Y(10) 
5@ FOR I = 1 TO 18: DRAW X(I) - OX,YC(I) - OY 
: LET OX = X(I): LET OY = YC(I): NEXT I 
68 PAUSE 250: GO TO 30 


200 REM input coords 

21@ LET I= 1 

220 GO SUB List 

230 LET I$ = INKEY$: IF I$ = ' THEN GO TO 230 

240 IF I$ CHRS 12 AND I < 11 THEN LET I = I + 1: GO TO 220 

250 IF I$ CHRS 11 AND I > 1 THEN LET I = I - 1: GO TO 220 

260 IF I$ <> CHRS 7 THEN GO TO 230 

270 IF I = 11 THEN INPUT "End. ? "; LINE I$: IF I$ = "y" THEN CLS : RETURN 
280 IF I = 11 THEN GO TO 220 

299 INPUT "X Coord. ";X(I),"Y Coord. "zY(1): GO TO 220 


300 REM List data 

31@ CLS : FOR J = 1 TO 10 

320 PRINT AT J,1;"X Coord. ";x(J),"Y Coord. ";Y(J) 
330 NEXT J: PRINT AT 11,1;"End.": PRINT AT 1,0;">" 
348 RETURN 


up a string containing control codes we can display complicated coloured 
graphics anywhere on the screen. A named variable string can even be built up 
in several stages and the variable name placed in the INPUT command inside 
brackets. Control CODEs may be included in the strings using the CHR$ func- 
tion, and numeric variables can be included by using STR$. This technique is 
shown to good effect in the MASTER MIND program (listing 5.6) and also in 
the WORM GAME (listing 1.16). Strings with built-in colour CODEs or even 
PRINT AT CODEs can be used in games or other programs to provide rapidly 
changing displays on all parts of the screen. For example, a sample menu of a 
mythical file-handling system is given in listing 13.2. Note the obvious use of 
colours to warn of potentially dangerous options. 

Control codes may be entered from the keyboard (see page 115 of the 
Spectrum BASIC Handbook (Vickers, 1982)) for direct inclusion in strings. 
These direct CODEs, which are ignored in execution, can be included also in 
program statements to emphasise or hide parts of listings. On our accompanying 
tape we give program listings in which the REM statements at the start of each 
routine begin with the CODEs for BRIGHT 1 (extended “9”) and end with 
BRIGHT 0 (extended “8’’). To pad out REM statements so that they end 
exactly at the edge of the screen we need to insert a CODE 6 in the line, which 
is equivalent to a comma in PRINT statements. Although not obviously avail- 
able from the keyboard, we can achieve the desired effect by inserting the 
CODEs for PAPER 6 (extended “6”) and then immediately press DELETE. 
This removes the CODE for PAPER but leaves the CODE 6, which has the 
effect of making the cursor leap ahead to the next half or full line position. 
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Listing 13.2 


100 
110 
120 
138 
148 
150 


160 


500 
510 
520 
538 
540 
558 
560 
570 
580 
598 
62D 


1000 
1010 


DIM G(6): DIM A$(6,24) 
FOR I = 1 TO 6: READ GCI): NEXT I 
DATA 1020,1000,1200 ,1000,1000,1000 


LET A$(1) = " EDIT FILE": LET A$(2) = " PRINT FILE” 

LET A$(3) = " SAVE FILE": LET AS(4) = " LOAD FILE” 

LET AS(5) = CHRS 17 + CHRS 2 + CHRS 16 + CHRS 7 + " DELETE FILE " 

+ CHRE 17 + CHRS 7 

LET AS(6) = CHRS 17 + CHRS 2 + CHRS 16 + CHRS 7 + " ERASE ALL FILES " 
+ CHRS 17 + CHRS 7 

REM menu/ select options 


CLS : PRINT AT 2,8;"N.0.N. FILE HANDLER” 
FOR T= 1 10 6 


PRINT AT Ix2 + 4,8;1;" "ZAS$CI) 
NEXT I 
INPUT "SELECT OPTION 2";0P 


IF OP < 1 OR OP > 6 THEN GO TO 558 

IF OP < 5 THEN GO TO 608 

INPUT ("DO YOU REALLY WANT TO ";+CHRS 6 + ASCOP) +" ");YS 
IF Y$ <> "y" THEN GO TO 558 

GO SUB G(OP): GO TO 500 


REM remainder of routines 
RETURN 
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Here CODE 6 is interpreted in its own right and not as a parameter following the 
CODE for PAPER. A CODE 6 at the end of each line preceding a new section of 
program can be used to force the display of a blank line in the listing. The word 
REM can be hidden by placing CODEs for INK 0 (extended shift ‘‘0’’) after 
REM and INK 7 (extended shift “7”’) before it. 

As a rule it is best to write programs in modules. Highlighting the names of 
the modules allows us to read, correct and adapt the programs with ease. To 
demonstrate the improved legibility provided by these highlighting techniques 
see figure 13.1, which shows part of listing 13.4 as it appears on the screen. 


Structure of the Display File 


We know that the display file can be directly altered or examined by BASIC 
programs, but to make use of this facility we must understand how the display 
file is organised. Each horizontal line on the display is made up of 32 bytes, 
each of eight bits. These 32 bytes are stored in consecutive locations in the 
memory. However the bytes for the next line down are held in the equivalent 
position on the next page of memory. For an eight-bit processor, like the Z80 
contained in the ZX Spectrum, one page of memory is 2° or 256 bytes: we shall 
use the identifier PAGE to refer to this quantity. This arrangement is designed 
to help the video circuitry cope efficiently with the display. Thus each page has 
room for eight lines of 32 bytes. The first page of the display file contains the 
top line for each of the first eight rows of character blocks. To complete the 
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Figure 13.1 


remaining seven lines for these rows there are seven more pages of memory, 

each page containing the data for subsequent lines. After these eight pages there 
are another two sets of eight pages holding the line information for the rest of 
the screen. From this we can calculate which bytes holds the data for the top 
line of a character block, and know that each of the other lines down the block 
is stored 256 bytes (one page) farther on. To work out the display-file position 
of the top line of a character block we need to know in which third of the screen 
(eight pages) the block lies. We need also to identify which of the 256 blocks in 
this third we are considering. We calculate the position of the first line of a 
character block in row R, column C by the following FuNction 


DEF FN A(R,C) = 16384 + INT (R/8)*2048 +(R — INT(R/8)*8)#32 + C 
This function is made up of four parts 


16384 (to the start of the display file) 

+ INT (R/8)*2048 (add relevant third of screen (0, 1, 2) multiplied by the 
length of one-third of the screen (2048 = 8*PAGE)) 

+ (R — INT(R/8)#*8)*32 (plus the position of the row within that third of 
the screen (0-7) multiplied by 32 (columns per row)) 

+C (plus the column (0-31) within that row) 


Advanced Programming Techniques 207 


The first two items determine the location of the start of the page that holds 
the first lines of that particular third of the screen. The last two items establish 
which of the 256 bytes along the page corresponds to the top line of the 
character block. 

Using another function with a character as the input parameter, we can find 
the start of the data that define this character and then transfer these data to the 
display-file locations 


DEF FN T(A$)= PEEK 23606 + PEEK 23607*256 + 8*CODE A$ 


The above function uses the system variable CHARS (stored in locations 
23606 and 23607, see chapter 5) to find the start of the table of character set 
data. It then adds eight times the CODE for the required character and thus 
finds the address of the first piece of data. Note that these two functions can be 
used to write on the bottom two lines of the display, which are not normally 
accessible, as is demonstrated by the program in listing 13.3. 


Listing 13.3 


108 REM main program 

118 LET print = 502 

120 LET P$ = "9 FAKE statement, 12@:1": LET ROW = 23: LET COL = @ 

130 GO SUB print 

140 LET P$ = "print this anywhere on the screen": LET ROW = 7: LET COL = 16 
15@ GO SUB print 

16@ PAUSE 258: STOP 


5@0 REM print routine 
51@ DEF FN ACR,C) = 16384 + INT (R/8)*2848 + (R - INT (R/8)*8)*32 + C 
520 DEF FN DCA$) = PEEK 23686 + 256 * PEEK 23607 + 8*CODE AS 
53@ FOR I = 1 TO LEN PS 
540 LET ADDRESS = FN ACROW,COL) 
558 LET DATA1 = FN D(P$(I)) 
568 FOR J = @ T0 7 
570 POKE ADDRESS + J*256, PEEK (DATA1 + J) 
58@ NEXT J 
59@ LET COL = COL + 1: IF COL = 32 THEN LET COL = @ 
: LET ROW = ROW + 1°: IF ROW = 24 THEN LET ROW = @ 
600 NEXT I 
612 RETURN 


Rapid Transfer of Screen Data 


If we try to move the display file of the Spectrum about rapidly, we soon find 
that BASIC is not fast enough to transfer the required quantity of data adequate- 
ly. The Spectrum is controlled by a Z80 microprocessor that is ideally suited to 
the task of moving data about quickly. To program this directly (instead of 
using BASIC as an intermediate language) involves an excursion into machine- 
code. The Z80 machine-code has instructions, like the PEEK and POKE of 
BASIC, which can be used to examine or replace numbers in various locations. 
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The Z80 also has internal registers, in which numbers can be placed, and used in 
much the same way as variables in BASIC. So we can write a set of machine-code 
instructions (that is, a program) to load one of these registers with a number from 
a memory location, and then load the number from the register into another 
memory location. This may not sound very interesting until you realise that the 
Z80 chip can carry out this program about a million times in one second! 
Unfortunately machine-code appears rather incomprehensible to a beginner, 
looking like a stream of apparently unrelated numbers. It is more convenient to 
use assembly language, which contains short words, mnemonic codes, that are a 
great help in understanding the function of each machine-code instruction. The 
Spectrum requires machine-code instructions to be stored in DATA statements 
and then POKEd into the memory. It is helpful to include the assembly language 
instructions as a REMark in the DATA line. Assemblers are programs that trans- 
late assembly language into machine-code, but if an assembler is unavailable we 
can use the table given in appendix A, page 183, of the Spectrum BASIC Hand- 
book (Vickers, 1982). One of the most powerful instructions available on the 
Z80 chip is 237, 176 or, more comprehensibly, LDIR in assembly language. This 
stands for LoaD and Increment Repeated, and is an instruction used to transfer 
blocks of data from one place to another in the store. Before issuing this instruc- 
tion, however, we must load some of the registers with various information. We 
must load 


DE with the address of the destination for the data 
HL with the current address of the data 
BC with the number of bytes to be transferred 


For clarity we look at figure 13.2, an example machine-code routine, with the 
equivalent Assembly language, and also a BASIC program, which performs 
exactly the same function. Remember the Assembly language is just a way of 
making machine-code more understandable. The complete program, listing 13.4, 
POKEs the machine-code into the memory and then calls the routine. This 
example copies the bottom third of the display file into the top third of the 
screen. 


300 REM BASIC data transfer 

17,0,64 LD DE,16384 310 LET DE = 16384 

33,080 LD HL,20480 320 LET HL = 20480 

1,0,8 LD BC 2048 330 LET BC = 2048 

237,176 LDIR 340 LET A = PEEK HL: POKE DE,A 
350 LET DE = DE + 1: LET HL=HL?+1 
360 LET BC = BC — 1 
370 IF BC () 0 THEN GO TO 340 

201 RET 380 RETURN 


Figure 13.2 
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Having POKEd the machine-code instructions into the memory we run the 
routine by using the USR function with the start address of our routine. USR 
with a numerical address simply calls the subroutine, in machine-code, starting 
at that address. This call is executed in a BASIC program by a command like 
LET A = USR 32000 (32000 is the address holding 17, the first byte of code). 


Listing 13.4 


1@ REM Loader for machine-code routine 
19 REM for 16K machines use clear 31999. 
2@ CLEAR 63999 

30 FOR I= @ TO 11: READ A 

39 REM for 16K use POKE 32000. 

4@ POKE 64020 + I,A: NEXT I 


102 REM data for machine-code transfer routine 


110 DATA 17,0,64 : REM LD DE, 16384 
120 DATA 33,0,80 : REM LD HL, 20480 
130 DATA 1,0,8 > REM LD BC,2048 
149 DATA 237,176 : REM LDIF 
15@ DATA 201 : REM RET 


200 REM main program 
218 CLS : FOR I = @ TO 21 
228 FOR J = @ TO 31: PRINT AT I,J;CHRS (1 + 64): NEXT J 


232 NEXT I 
240 PRINT AT 19,1; INVERSE 1;"PRESS ANY KEY TO START ROUTINE" 
250 IF INKEYS = "" THEN GO TO 250 


259 REM for 16K change to USR 32000. 
260 LET A = USR 64902: STOP 


Exercise 13.1 

Type in the BASIC routine from figure 13.2 and time how long it takes to run. 
Compare this with the time taken for the machine-code routine in listing 13.4. 
You will find the machine-code is thousands of times faster. 


Animation (48K machines only) 


We use a simple routine to transfer all the data necessary to display a picture 
(both display file and attribute file) from somewhere else in the memory to the 
screen memory locations. This provides a quick method of changing between 
pictures. There is enough memory on the 48K Spectrum to hold five alternative 
pictures or frames. We can use the program from listing 13.5 to construct five 
machine-code routines at 30100, 30200, 30300, 30400 and 30500 that will 
transfer these pictures to the screen. Suppose five diagrams have been SAVEd on 
tape. We LOAD them into the alternative frames in memory, from where they 
can be copied on to the screen by calling the appropriate routine. This method 
could be used to illustrate a lecture or a sales talk with a short slide show, switch- 
ing almost instantaneously between slides. Naturally after five slides have been 
shown then five more must be LOADed. This takes approximately 5 minutes 
from tape but less than 10 seconds from disk. 
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Pressing one of the keys “1” to “5” when using the routine ‘slideshow’ 
(listing 13.5) brings the required picture to the screen. 


Listing 13.5 


100 REM Loader for machine-code routines 
118 CLEAR 29999: DIM F(5) 

12@ FOR I = 1 TO 5: RESTORE 

158 LET FCL) = 120. + 27%(1 = 1) 

140 FOR J = @ TO 11 

150 READ A: POKE 32000 + I*18 + J,A 


160 NEXT J 

170 NEXT I 

200 REM data transfer from I'th frame to screen 

210 DATA 17,0,64 : REM LD DE,16384 
220 DATA 33,0,F(1) : REM LD HL, FRAME (1) 
238 DATA 1,0,27 5 REM: LO BC,27*256 
240 DATA 237,176 : REM LDIR 

250 DATA 201 : REM RET 


308 REM Load frames 

310 FOR J = 1 TO 18: BEEP @.1,3@: PAUSE 5: NEXT J 
328 CLS : FOR 1T=@ 104 

330 LOAD '"" CODE (128 + 1*27)*256,27%*256 

348 NEXT I 

350 FOR J = 1 TO 19: BEEP @.1,3@: PAUSE 5: NEXT J 


4@D REM slide show 

410 IF INKEYS <> "" THEN GO TO 412 

420 LET AS = INKEYS: IF AS = "" THEN GO TO 420 

430 IF AS CHR$S 13 THEN GO TO 318 

440 IF AS "m" THEN GO TO 500 

450 IF AG >= "1" AND AS <= "5" THEN LET A = USR (300020 + VAL AS*16D) 
460 GO TO 418 


58) REM movie show 

510 FOR I = 30100 TO 30500 STEP 120 
52@ LET A = USR I 

53@ IF INKEY$ = "s"™ THEN GO TO 400 
540 NEXT I: GO TO 510 


. This idea can be extended to produce ‘movie’s. For example, consider figure 
13.3, which shows five frames produced by the three-dimensional routines of 
chapter 11. These give views of the same spheroid are created using HORIZ = 
3.2, VERT = 2.2, NUMH = 10, NUMV = 8 and PHI = 0.4*PI #I/NUMH, where 
0 <1 <4. The ‘movie’ of this object, viewed from (1, 2, 3) to (0, 0, 0), can be 
shown apparently rotating by repeatedly bringing the five frames on to the screen 
in quick succession. This set of pictures is included on the tape and is shown 
below. 

After you have finished with the ‘movie’ or ‘slideshow’ program you should 
type CLEAR 65367, for otherwise the next time you LOAD a program the 
Spectrum will reply ‘Out of Memory’. 
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Exercise 13.2 

Draw a perspective view of a wire cube in frame 1, and the same view, but with 
the hidden lines suppressed, in frame 2. Produce a movie consisting of these two 
frames only. You will see the visible lines of the cube stay fixed but the hidden 
lines will flash on and off. Construct a movie in which one of the ‘star’s from 
chapter 12 appears to rotate. 


Scrolling (16K and 48K machines) 


Using machine-code for more complicated tasks requires a great deal more 
thought and study. A good book on the subject and preferably one specifically 
written for the Spectrum should be consulted (see Zaks, 1978; Hutty, 1981; 
Woods, 1983). For those who wish to pursue more complex manipulations of 
the screen in machine-code we give one more example. (Listing 13.6 scrolls the 
graphics display area downwards. The fact that the display-file data are split into 
lines of 32 bytes causes problems. To effectively move these data around we need 
the start addresses of these lines. To calculate the addresses in a machine-code 
routine requires a lot of programming effort and slows down the execution. 
Instead we use a look-up table. For machine-code purposes an address is made 
up of sixteen bits that are stored in two eight-bit locations, the /o-byte and the 
hi-byte. Whenever we need to know the address of a line we simply look up its 
two halves from the tables. We use BASIC to calculate the tables and to POKE 
them into memory. These tables and the machine-code itself could be saved on 
tape and reloaded if required. Listing 13.6 gives the machine-code program, 
BASIC loader and table constructer. Listing 13.7 shows an equivalent BASIC 
routine for the program. Note that the BASIC routine assumes the existence of 
the same table used by the machine-code. 


Exercise 13.3 

Write a machine-code routine that moves the attribute file around the memory, 
one row at a time. Then write a BASIC program that calls your routine each 
time the graphics area has been scrolled down by eight lines. 


BASIC Structure (Renumber and Delete) 


The development of modular programs often leads to situations where routines 
are cramped and there is no room for extra lines or alterations. At times like these 
we would like to renumber the lines automatically or perhaps delete whole 
sections. These two utility commands are also useful when MERG(E)ing pro- 
grams in order to create new routines. To perform these tasks we must take a 
closer look at the way our BASIC programs are stored in the computer memory. 
BASIC programs are stored line by line in memory starting at address 23755. 
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Listing 13.6 


1@ REM Loader for machine~code routine 
20 CLEAR 31999 

30 FOR I= 0 TO 74 

4@ READ A: POKE 32002+1,A 

5@ NEXT I 


106 REM downwards wrap-around scroll for graphics area 
118 DATA 1,175, : REM LD BC,175 


120 DATA 221,33,75,125 : REM LD IX, LOBYTE 
130 DATA 221,9 : REM ADD IX,BC 

149 DATA 221,110,0 : REM LD L,CIX+#0] 
158 DATA 221,33,251,125 : REM LD IX, HIBYTE 
16@ DATA 221,9 : REM ADD  1X,BC 
170 DATA 221,102, : REM LD H,CIX+0] 
180 DATA 17,171,126 : REM LD DE, TEMP 
198 DATA 205,67,125 : REM CALL MOVE 

200 DATA 221,33,75,125 : REM LD IX, LOBYTE 
21D DATA 221,9 : REM ADD IX,BC 

220 DATA 221,94, : REM LD E,CIX+03 
238 DATA 221,112,-1 : REM LD L,CIX-13 
248 DATA 221,33,251,125 > REM LD IX, HIBYTE 
258 DATA 221,9 : REM ADD IX,BC 
268 DATA 221,86,0 : REM LD D,CIX+03 
27 DATA 221,102,-1 : REM LD H,CIX-1] 
280 DATA 205,67,125 : REM CALL MOVE 

290 DATA 13 : REM DEC C 

300 DATA 32,226 : REM JR NZ,LINE 
31D DATA 17,0,64 : REM LD DE, 16384 
320 DATA 33,171,126 : REM LD HL,TEMP 
330 DATA 205,67,125 : REM CALL MOVE 

349 DATA 201 : REM RET 

350 DATA 197 : REM PUSH BC 

360 DATA 1,32,0 : REM LD BC,32 
370 DATA 237,176 : REM LDIR 

38 DATA 193 : REM POP BC 

398 DATA 201 : REM RET 


4@0 REM construct tables of display-file Line addresses 
410 FOR T= @ TO 21: FOR J = @ 107 

420 LET A = 16384 + INT (1/8)*2048 + (I - INT (1/8) *8)*32 
430 LET H = INT (A/256): LET L = A - H*256 

440 POKE 32075 + I*8 + J,L: POKE 32251 + I*8 + J,H + J 
458 NEXT J: NEXT I 


500 REM main program 

518 LIST 380 

520 IF INKEY$ © "" THEN LET A = USR 32000 
538 GO TO 520 


21s 


The first item stored for each line is the line number (16 bits), which takes up 
two locations and is stored as the hi-byte followed by the lo-byte. In all other 
places values are stored in the standard lo-hi format. To illustrate suppose we 


enter the line 10 REM. If we type 


PRINT PEEK 23755, PEEK 23756 
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1@ REM basic version of scroll tor graphics area 
20 CLEAR 31999 
30 GO TO 40D 


100 REM downwards wrap-around scroll for graphics area 

110 LET C = 175: LET B = @: LET BC = C + B*256 

120 LET IXLO = 75: LET IXHI = 125: LET IX = IXLO + IXHI*256 

130 LET IX = IX + BC 

148 LET L = PEEK (1X + @) 

15@ LET IXLO = 251: LET IXHI = 125: LET IX = IXLO + IXHI*256 

160 LET 1X = IX + BC 

170 LETH PEEK (1X + @): LET HL = L + H*256 

180 LET E 171: LET D = 126: LET DE = E + D*256 

198 GO SUB 350 

200 LET IXLO = 75: LET IXHI = 125: LET IX = IXLO + IXHI*256 

218 LET IX = IX + BC 

220 LET E = PEEK (1X + @) 

230 LET L = PEEK (1X - 1) 

248 LET IXLO = 251: LET IXHI = 125: LET IX = IXLO + IXHI*256 

2580 LET IX = IX + BC 

26@ LET D = PEEK (1X + @): LET DE = E + D*256 

270 LET H = PEEK (IX - 1): LET HL = L + H*256 

288 GO SUB 358 

290 LET C = C - 1: LET BC = C + Bx*256 

308 IF C <> B THEN GO TO 200 

312 LET E = @: LET D = 64: LET DE = E + 256*D 

320 LET L = 171: LET H = 126: LET HL = L + H*256L 

332 GO SUB 350 

348 RETURN 

35@ LET S = BC 

36@ LET BC = 32 

37@ LET A = PEEK HL: POKE DE,A: LET DE = DE + 1: LET HL = HL + 1 
: LET BC = BC - 1: IF BC <> ® THEN GO TO 370 

38@ LET BC = S$ 

398 RETURN 


40D REM construct tables of display-file Line addresses 
410 FOR T= @ TO 21: FORJ =@ 707 

16384 + INT (1/8)*2848 + (I - INT (1/8)*8)*32 
INT (A/256): LET L = A - H*256 

440 POKE 32075 + I*8 + J,L: POKE 32251 + 1*8 + J,H + J 
45@ NEXT J: NEXT I 


rs 
Nm 
i] 
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5@0 REM main program 

510 LIST 388 

520 IF INKEYS <> "'' THEN GO SUB 108 
538 GO TO 520 


we shall see that 0, 10 is stored in these locations. If we remove line 10 and enter 
another numbered line at the start of the program, we see that the representation 
of this new number is now stored in 23755 and 23756. The next two bytes give 
the length of the present line (this can be used to find the start of the next pro- 
gram line without traversing the whole of the present line). Now comes the 
actual text of the BASIC line, each character or keyword taking up one memory 
location. The end of the line is marked by a CODE 13 (or ENTER). After any 
number given in decimal notation and stored as characters there is a CODE 14 
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(or NUMBER: see page 183 of the Spectrum BASIC Handbook (Vickers, 1982)) 
followed by a binary translation of the number, taking five bytes. Integers are 
stored in a simple way, as explained on page 163 of the Spectrum BASIC Hand- 
book (Vickers, 1982). Using this information about the contents of the memory 
we can write a program that lists programs, including itself, by examining the 
memory. This type of listing program (listing 13.8) can be of great assistance when 
formatting listings in which statements all start on a new line, or when control 
CODES need to be displayed. 


Listing 13.8 


102 REM sel f-Listing program 

119 LET 2 = 2375S: CLS 

120 LET LINE = 256*PEEK I + PEEK (I + 1): IF LINE > 9999.5 THEN STOP 
130 PRINT " ";LINE; 

140 LET I = I + 2: PRINT PAPER 5;PEEK I;",";PEEK (I + 1);" "3 
150 LET LENGTH = PEEK I + 256*PEEK (I + 1) 

160 LET NUM = @: LET I1=1+1 

170 FOR J = 1 TO LENGTH: LET I= 1+ 1 

180 LET P = PEEK I: IF P < 32 AND NUM <= @ THEN LET NUM = 1 
190 IF P = 13 THEN PRINT PAPER 4;P: PRINT: GO TO 230 

200 IF P = 14 THEN LET NUM = 6 

212 IF NUM > @ THEN PRINT PAPER 6;P;",";: GO TO 230 

220 PRINT CHRS P; 

230 LET NUM = NUM - 1 

248 NEXT J 

250 LET I= 1 + 1: GO To 120 


In order to renumber lines we need to change the line numbers stored in the 
memory. This is true as long as the lines do not get out of numerical sequence. 
Unfortunately this does not take into account GO TO or GO SUB, etc., com- 
mands. We must search out all GO SUB, GO TO, RESTORE and RUN keywords 
in the program and, if they are followed by a simple integer, check whether the 
line number has been changed. If it has, then both the numeric characters of the 
number and the integer representation of the number must be altered. To delete 
a range of lines all we have to do is extend the length of the line before the un- 
wanted range, so that it completely covers the unwanted area. The correct length 
of the line is re-established on editing and re-entering this line. The remainder of 
the program is moved down through the store to continue from where the line 
now ends. Listing 13.9 gives two routines that perform these tasks; the renumber 
routine is entered by RUN 9900 and the delete routine by RUN 9970. 


Exercise 13.4 

Write a routine that can search through the BASIC memory and find any specified 
sequence of CODEs. Use the method shown in the above delete program to set 
the system variable E PPC (which controls the edit cursor: see page 174 of the 
Spectrum BASIC Handbook (Vickers, 1982)) to the number of the line where 

the sequence is found. 
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Listing 13.9 


9900 


9901 
9982 
9903 


9904 
9905 
9906 
9907 
9908 
9989 
9910 
9911 

9912 
9913 
9914 
9915 
9916 
9917 
9918 
9919 
9928 
9921 

9922 
9923 
9924 
9925 
9926 
9927 
9928 


9929 
9938 
9931 
9932 
9933 


9934 
9935 
9936 
9937 
9938 
9939 
9940 
9941 

9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 

9952 
9953 


9954 


INPUT "Renumber Lines ";LOW;" To ";UP,"Starting at ";NEW; 

"in steps of ";STEP 

LET X = 990M: IF LOW > X OR UP > X OR LOW > UP THEN GO TO 9980 
IF NEW > X OR NEW < 1 OR STEP > X OR STEP < 1 THEN GO TO 9900 
PRINT AT 19,0;"Renumber Lines ";LOW;" to ";UP,"Startirg at ";NEW; 
"In steps of "ZSTEP,"Please wait” 

LET START = 23755: LET SCREEN = 16384: LET HI = 256 

LET A = START: LET B = SCREEN 

LET H = PEEK A: LET L = PEEK (A + 1) 

POKE B,H: POKE B + 1,L 

LET A= +2: LETB = B+ 2 

LET LEN PEEK A + PEEK (A + 1)*HI: LET A = A+ LEN + 2 

IF H*HI + L < X THEN GO TO 99086 


i 


LET A = START: LET B = SCREEN: LET W = NEW 

LET H = PEEK A: LET L = PEEK (A + 1) 

LET N = HI*H + L: IF N < LOW OR N > UP THEN GO TO 9918 
IF W > X THEN GO TO 9955 


LET H = INT (W/HI): LET L = W- H*HI 

POKE A,H: POKE A+ 1,L 

LET W = W+ STEP 

LETA=A+2 

LET LEN = PEEK A + PEEK (A + 1)*HI: LET A = A+ LEN + 2 
IF N < X THEN GO TO 9912 


LET A = START: LET B = SCREEN 
LET H = PEEK A: LET L = PEEK (A + 1): LET NN = PEEK B*HI + PEEK (B + 1) 
LET N = H*HI + Lz: IF N = X THEN STOP 


PRINT AT 21,0;"Checking ";NN;" = new Line "ZN 

LET A= A+ 2: LETW=A+#+2 

LET LEN = PEEK A + PEEK (A + 1)*HI: LET A = A+ LEN + 2 
LET T = PEEK W 


IF T = CODE (" GO TO ") OR T = CODE (" GO SUB ") OR T = CODE (" RUN ") 
OR T = CODE (" RESTORE ") THEN GO SUB 9932 
IF T = 14 THEN LET W=W+ 5 


LET W = W+1: IF W< A THEN GO TO 9927 

LET B = B + 2: GO TO 9922 

LET V=W+1: LET AS =" 

LET S = PEEK V: IF S <> 32 AND S <> 14 AND NOT (S>=48 AND S<=57) 


THEN RETURN s 

IF S$ <> 14 THEN LET V V+ 1: LET AS = AS + CHRS S: GO TC 9933 
LET V = V + 3: LET AT PEEK V + PEEK (V + 1)*HI 

IF AT < LOW OR AT > UP THEN RETURN 

GO SUB 9943: LET H = INT (NAT/HI): LET L = NAT — HHI 

LET BS = STRS NAT: IF LEN AS <> LEN BS THEN GOSUB 9951 

POKE V,L: POKE V+1,H 

FOR I = 1 TO LEN BS 

POKE W + 1,CODE BS(I): NEXT I 


RETURN 
LET C = START: LET D = SCREEN 
LET H = PEEK D: LET L = PEEK (D + 1) 


PEEK C *HI + PEEK (C + 1) 

IF E— >= X THEN LET NAT = @: RETURN 

IF H*HI + L = AT THEN LET NAT = E: RETURN 

LET C=C + 2: LETD=Dee2 

LET LEN = PEEK C + PEEK (C + 1)*HI: LET C = C + LEN + 2 

GO TO 9944 

LET DIFF = LEN A$ - LEN BS 

IF DIFF > @ THEN FOR I = 1 TO DIFF: LET BS = BS + " ": NEXT I: RETURN 
PRINT AT 16,0;"No room at ";CHRS T;AT;" in Line ";NN, 

"type edit and add ";-DIFF;" space(s)","to Label then re-run program.’ 
LET H = INT C(NN/HI): POKE 23626,H: POKE 23625,NN-H*HI 
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9955 LET A = START: LET B = SCREEN 

9956 LET H = PEEK A: LET L = PEEK (A+1) 

9957 IF H*HI + L = X THEN PRINT AT @,0;"Renumber aborted": STOP 

9958 PCKE A, PEEK B: POKE At1, PEEK (B + 1) 

$959 LET A= A+ 2: LETB=B+2 

9960 LET LEN = PEEK A + PEEK (A + 1)*HI: LET A = A + LEN + 2 

9961 GO TO 9956 

9978 INPUT "Delete Lines ";LOW;" to ";UP: IF LOW < 2 OR LOW >= UP 
THEN GO TO 9970 

S971 PRINT AT 20,0;"Delete Lines "ZLOW;" to ";UP,"Please wait" 

9972 LET START = 23755: LET SCREEN = 16384: LET HI = 256 

9S73 LET A = START: LET B = SCREEN 

9974 LET H = PEEK At LET L = PEEK (A + 1) 

9975 IF H*HI + L >= LOW THEN PRINT AT 0,0;"Please enter Line "; 
LOW-1;'"" REM ","and re-run prograr": STOP 

$976 LET KH = PEEK A: LET L = PEEK (A + 1) 

9977 IF H*HI + L >= LOW THEN GC TC 9981 

S97& LET NN = H*HI +L: LET LAST = Az: LET A = A +2 

S97S LET LEN = PEEK A + PEEK (A + 4)*HI: LET # = A+ LEN + 2 

9988 GO TO 9976 

9981 LET LAST = LA 

9982 LET LONG = PEEK LAST + PEEK (LAST + 1)*HI 

9963 IF H*HI + L > UP TEEN PRINT AT @,0;"No Lines in rarge’™: STOP 

9984 LET H = PEEK A: LET L = PEEK (A + 1): IF H*HI + L = UP THEN GO TO 9990 

9985 LET A= A+ 2: LET LONE = LONG + 2 

$986 LET LEN = PEEK A + PEEK (A + 1)*HI: LET A = A+ LEN + 2 
: LET LONG = LONG + LEN + 2 

9987 IF HeKI + L <> UP THEN GO TO 9984 

9998 LET H = INT (LONG/hI): POKE LAST + 1,H: POKE LAST,LONG — H*HI 

9995 LET H = INT (NN/HI): POKE 23626,H: POKE 23625,NN-K4HI 

9999 PRINT AT 0,0;"type edit ana enter”: STOP 


LAST + 2 
P 


BASIC Structure (Efficient Programs) 


When programming in BASIC we can use our knowledge of the way lines are 
stored to help make our programs more efficient, both in terms of space used 
and speed of execution. Every occurrence of an explicit number is followed by 
six bytes of number codes so that the conversion from a string of digits to its 
binary form need not be performed each time the line is entered. If instead we 
assign the required number to a variable, and use the variable name for each 
occurrence of the value, then the space required would be only the number of 
bytes in the variable name. To assign the value we must use three extra codes “:”’, 
“LET” and “‘=”’, as well as the variable name, and to access the value we must use 
the variable name. If the value is used often then this method will save consider- 
able space. As an example consider the first two statements in the following 
program 


10 PRINT AT 1,1 

20 LET A= 1: PRINT AT A,A 
30 PRINT AT 1,1 

40 PRINT AT A,A 
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The BASIC text of line 10 requires 17 bytes of store: “PRINT”, “AT”, “1”, 
14,.0,0,1,,0,0,“,”, “1”, 14, 0,0, 1,0, 6. 

Line 20 requires 16 bytes of store: “LET”, ““A”’, “=”, “1”, 14, 0,0, 1, 0,0, 
Fk RIND: SAM yc Ate ns GAL 

The second line above has fewer codes than the first line. However, the 
second line uses the variable A, which, unless it is used elsewhere, will take up 
six bytes of memory. If we need to repeat the statements, as shown above in lines 
30 and 40, we find that line 30 is 17 bytes long but line 40 is only 5 bytes long. 
So if we use a numeric value more than a couple of times in a program, we can 
make large savings by using a variable to represent the value. 

We can also save space and improve speed by packing as many statements as 
possible on to one line, although this reduces legibility. Each new line requires 
five bytes of memory: one for the CODE 13 at the end of the previous line, two 
for the new line number and two for the length of the line. A colon between 
statements needs only one byte. The space saved can be quite large. For example, 
consider a program with 90 statements (quite small on average): if the state- 
ments are initially all on separate lines and we rewrite with 3 statements per line, 
we can save 60#(5 — 1) = 240 bytes. In a large program it is quite feasible to save 
over 1K of memory in this way. Using fewer lines also makes it easier for the 
machine to obey GO TO or GO SUB commands, as it will take less time to search 
for the destination line. To be most efficient all SUBroutines and FuNctions 
should be near the start of a program and arranged so that the most frequently 
used come first. Unless very many calls are made to the same routine, it is usually 
more convenient to store the routines in a logical order. 


Exercise 13.5 
Rewrite and reposition the graphics routines and/or the games programs to use 
less space and if possible run faster. 


Synchronous Display 


When displaying pictures on the Spectrum we can use the PAUSE command to 
provide an interesting BORDER display. The television display is completely re- 
drawn every 1/50th of a second (1/60th in the U.S.A.) and PAUSE uses multiples 
of this same time interval. When PAUSE 1 is used the delay is not always a com- 
plete 50th of a second. In fact the PAUSE will last only until the start of the 
next frame. This gives us a method of starting instructions at a fixed time relative 
to each refresh of the display. If we change the BORDER colour partway 
through the drawing of the display, then for that frame the top part only of the 
BORDER will be one colour and the remainder will be another colour. Obviously 
we could use PAUSE to wait for the start of the next frame and repeat the pro- 
cess. This results in the display of a steady picture provided we keep repeating 
the same actions. The SAVE and LOAD statements use a machine-code routine 
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to do an equivalent process, which is how the red/cyan and yellow/blue patterns 
are produced on the BORDER. 
Consider the following start of a large program 


1 GO TO 10 
2 PAUSE 1: BORDER 7: BORDER 2: BORDER 6: BORDER 4: 
BORDER 5: BORDER 1: BORDER 3: BORDER 7: GO TO 2 


The program terminates with a GO TO 2 command that produces a rainbow 
effect on the BORDER after the construction of a diagram. Note that, unless the 
line is placed near the top of the program, the GO TO statement will take so 
long to execute that we shall miss the start of the next frame. 


Exercise 13.6 

Write a one-line program that alternates between red and cyan BORDER colours 
without using PAUSE. Insert extra colons (no other statements — just colons) 
between the statements until the execution time for the line is exactly 1/50th 
(or 1/60th) of a second; that is, the two colours are stationary. (Hint: count a 
BORDER command as 10,a GO TO as 13 and a colon as 1; try to make the total 
value of the line, counted in this way, about 160.) 


Complete Programs 


I. Listing 13.1. Data required: 10 sets of X/Y coordinate pairs. The screen 
shows a zeroed table of these values, followed by “End.”’. A cursor, which 
points to the first row, can be moved down by Capital “6” and up by 
Capital “7°. When you are at the required row, type “EDIT” (Capital 
“*1’’) and the machine requests the pixel X/Y coordinates for that entry in 
the table. When you have finished move the cursor to “End.”’, then EDIT 
and type “y”’(es). The program will then draw a polygon by joining the 
10 coordinate points. 

II. Listing 13.2. Data required: numeric key input for mythical file system. 
Type “1” to “6”. For “5” or “6” the machine checks if you really mean it: 
type ‘“‘y’’(es) or “‘n’’(o). BREAK terminates program. 

II]. Listing 13.3. No data required: BREAK terminates program. 

IV. Listing 13.4. Type any key on request. No data required: BREAK termin- 
ates program. 

V. Listing 13.5. After the BEEP, program requires five pictures to be loaded 
from tape. Type “1”, “2”, “3”, “4” or “5” for instant display of required 
frame, ‘m’ for ‘movie’ and ‘s’ to stop movie. 

VI. Listing 13.6. When screen is full, hold down any key for scroll to continue. 
BREAK to stop. 
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VII. Listing 13.7. BASIC version of VI. Very slow! 
VUI. Listing 13.8. No data required. 
IX. Listings 13.7 and 13.9. Type RUN 9900 for Renumber and RUN 9970 for 
Delete. Example data: editing listing 13.7 


RUN 9900 
Renumber lines 10 to 30 
Starting at 60 in steps of 5 


Now LIST program to see changes 


RUN 9970 
Delete lines 60 to 99 


Halt: there must be at least one line in front of section to be deleted 


RUN 9970 

Delete lines 65 to 99 
EDIT (Capital ‘‘1’’) 
LIST 


14 A Worked Example of a Video 
Game 


In this chapter we examine the limits of BASIC programming for animated video 
games. We have found that games written in BASIC are expensive, and in general 
the players’ interest short-lived. If users can achieve a reasonable result them- 
selves then they far prefer to write their own simple video games, and spend 
their money only on sophisticated games written in machine-code. Listing 14.1 

is an example of the sort of game that most competent BASIC programmers can 
reasonably expect to write, without resorting to machine-code routines. The 
game, ISLAND DEFENCE (48K machines only), is a typical ‘shoot-em up’ game, 
but the techniques we discuss could just as easily be applied to ‘bat and ball’ 

(for example, TENNIS) or ‘tactical’ games (for example, PAC MAN). 


Outline of the Game 


On the screen we draw a scene of a green island with a small hill, dark blue sea, 
and a light blue sky containing a yellow sun and white cloud. There are three 
trees, and a light blue concrete area on which a tent is drawn. A man comes out 
of the tent and walks to a sandbagged gun emplacement, where he gives 20 
bullets to the gunner and returns to the tent. Enemy aeroplanes appear out of 
the sun, fly over the hill and bomb the camp; the gunner defends the camp by 
firing at the aeroplanes. At every attack, the aeroplane is either disabled or makes 
a successful hit on the camp. With each successful hit the size of the tent dimin- 
ishes. After 14 hits the tent disappears, and the next plane bombs the gun. On 
destruction of the gun the BORDER of the screen goes haywire and the scene is 
reset. After each bombing run, the plane flies through the cloud, over the gun 
and exits stage left. The stock of ammunition is replenished after 20 planes have 
completed their runs. After the gun has been bombed for the third time the 
screen goes blood red and the whole game starts again. 

The gun has seven firing positions specified by keys “1” to “7”, and a missile 
is fired by pressing ‘‘x’’. Because of speed restrictions only one plane and one 
missile can appear on the screen at any given time. 

For you to make the most of the explanations in this chapter we advise you 
to get the companion cassette tape, and LOAD and RUN listing 14.1. The pro- 
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Listing 14.1 


9 REM initialise routines to allow use of alternate character set. 
1@ CLEAR 62294: INK @: PAPER 7: BORDER 7: FLASH O 
2@ DIM $(6): FOR I = 1 TO 6: READ SCI): NEXT 1 
30 DATA 15368,62039,62807 ,63575, 64343 ,64848 
4@ LET set = 5@: LET S = 1: GO SUB set: GO TO 200 


5@ REM set/change to set S$ 

51 REM IN : $ 

6@ LET HI = INT (S(S)/256): LET LO = S(S) - HI*256 
7B POKE 236@6,L0: POKE 23607,HI: RETURN 


79 REM Load in game characters for set 2. 
80 REM charload 
90 LET NS = "gameset” 


100 LET S = 2 
110 INPUT (" LOADING " + NS + CHRS 6 + "Start tape, then press enter.") 
; LINE x$ 


120 LOAD N$ CODE (SCS) + 256),768: RETURN 


202 REM main program 
209 REM initialise variables pointing to routines. 
210 LET charload = 8@: LET Load = 460: LET create = 5000 
: LET credit = 5508: LET char = 5600 
220 LET keyboard = 500: LET camp = 708: LET status = 802: LET plane = 988 
230 LET reload = 1508: LET ammo = 1902: LET missile = 2200 
: LET explode = 2500 
248 LET bombcamp = 3502: LET bombgun = 3002: LET hiscore = 5702: LET HSC = O 
249 REM if character set is not in place load it. 
250 IF PEEK 62303 <> 118 THEN GO SUB charload 
258 REM Load background, create characters for fuel dump, 
259 REM print names on bottom two Lines. 
268 GO SUB load: GO SUB create: GO SUB credit 
269 REM make a copy of colour attributes for screen. 
272 DIM A(704): FOR I = 1 TO 704: LET ACI) = PEEK (22527 + 1): NEXT I 
279 REM prepare strings for use by display routines. 
288 LET S$ = " SCORE ": LET BS =" BASE # 
298 FOR I = 1 TO 4: LET S$ = S$ + CHRS 8: LET BS = BS + CHRS 8: NEXT I 
300 DIM N$(9): LET NS="" ABCDEFGR” 


ion oa 


309 REM start/restart for game. 

310 BRIGHT 1: PAPER 8: INK 8: OVER 8 

319 REM reset SCore and no. of BaSes, print out score Line 

320 LET SC = @: LET BS = 3: GO SUB status 

329 REM remove remaining ammunition and remove flash from gunners square. 
330 PRINT AT 17,53" ": PRINT AT 18,5;" ": PRINT AT 16,3;" " 

339 REM restore colour attributes from copy. 

349 FOR I = 1 TO 704: POKE 22527+1,A(1): NEXT I 

349 REM print new tent and gunner, update score Line, reload ammunition. 
358 GO SUB camp: GO SUB status: GO SUB reload 

358 REM prepare for main Loop of program set 'p' to top of "plane’ cascade. 
359 REM set 'm' to ‘missile’ ready state, set 'k' to keyboard routine. 
368 LET p = plane: LET m = missile: LET k = keyboard 

369 REM start a new wave of 20 AiRplanes. 

370 LET AR = 20 

379 REM start of main Loop 

380 GO SUB p: OVER 1: GO SUB m: OVER @: GO SUB k 

389 REM jump out of Loop. 

390 IF DEAD THEN GO 70 420 

399 REM if more airplanes to come keep Looping. 


400 
409 
410 


419 
420 


429 
430 
448 
458 
460 


469 
470 
480 


502 
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518 
518 
519 
528 


529 
530 
538 
539 
540 
558 
568 


700 
709 
710 


718 
719 
720 


800 
889 
810 
820 
830 
840 


980 
989 
998 


999 
1000 
1009 
1010 
1019 
1020 
1029 
1030 
1039 
1040 
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IF AR > @ THEN GO TO 388 
REM if end of planes then reload and start new wave, continue Looping. 
GO SUB reload: GO TO 370 


REM make sure plane 7s gone, if you have any bases left use the next one. 
INK 2: PRINT AT 12,0;" "s IF BS > 1 THEN LET BS = BS - 1: GO TO 350 
REM game over so flash border and turn screen blood red. 


OVER 1: FOR I = 1 TO 22: BEEP @.085,RND*30-15: BORDER RND*7 

FOR J = 1 TO 2: PLOT @,(22-1)*8: DRAW BRIGHT 1; PAPER 2; INK 2; 255,0 
NEXT J: NEXT I: BORDER 7 

OVER @ 


REM check whether you beat the HiSCore then restart game. 
IF SC > HSC THEN GO SUB hiscore 
PAUSE 200: GO TO 310 


REM keyboard 

REM if no key pressed when routine checks then you missed your chance. 
LET AS = INKEY$: IF AS = "" THEN RETURN 

REM the fire key is pressed:- 

REM if you're not out of missiles and a missile is ready then fire. 

IF AS="X" OR AS="x" THEN IF m = missile AND NOT OUT THEN LET m = f 

: LET MS = F$: GO SUB ammo: OVER 1: GO SUB m: OVER @: GO TO 558 

REM if the key is not '1' to '7' then wrong key press, ignore it. 

IF AS > "7" OR AS < "1" THEN RETURN 

REM calculate which routine is used if missile is fired in this direction. 
REM set string which is used for missile and change gun direction. 

LET f = 2000 + 12*VAL AS: LET FS = CHRS (83 + VAL AS) 

PRINT AT 16,3;F$ 

RETURN 


REM camp 
REM print new gunner and tent, reset border to white. 
PRINT AT 17,3;"z": BRIGHT @: BORDER 7: PRINT AT 16,23; "vw" 
¢ PRINT AT 17,23;“xy": BRIGHT 1 
REM set height of tent to 14, reset truth-flags, 
REM use keyboard rotuine to initialise gun position. 
LET YT = 14: LET HIT = @: LET DEAD = @: LET AS = "3": GO TO 540 


REM status 

REM use set 1 to print out score and no. of bases Left then back to set 2. 
LET S§ = 1: GO SUB set 

PRINT AT 21,0;S$;SC,B$;BS 


LET S$ = 2: GO SUB set 

RETURN 

REM plane 

REM ensure that 'bombgun' pointer always starts at top of cascade. 
PRINT AT 13,57" ": PRINT AT 15,4;" "2 PRINT AT Vi 58 2 

: LET bombgun = 3000 

REM change pointer, if result is over 1000 then plane will be launched. 


LET p = 991 + INT (RND*11):RETURN 

REM Launch aircraft, start pointer going down cascade, load bomb. 
LET AR = AR - 1: LET p = 1020: LET BOMB = 1: RETURN 

REM move plane one place to right. 

PRINT AT R,C;" IJ": LET €C = C + 1: IF C < 1 THEN RETURN 

REM if plane is over 18 columns onto screen move pointer down. 

LET p =1040 

REM diagonal dive. 

PRINT AT R-1,C;" “cs PRINT AT R,C3 N"2 LET R= R + tz LET C= C+ 1 
: PRINT AT R,C;"n": IF C < 28 THEN RETURN 
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REM if over 2@ columns across then move pointer, remove left over plane. 

LET p =1060: PRINT AT R-1,C€;" " 

REM call the 'bombcamp' cascade each of the five times this section is used. 
GO SUB bombcamp: PRINT AT R,C;" IJ": LET C = C + 1: IF C < 25 THEN RETURN 


REM move pointer down and start curve up towards cloud. 

LET p =1080 

PRINT AT R,C3" “2: LET R= R- 1: LET C = C + 7: PRINT AT R,C;"KL" 
: IF C < 28 THEN RETURN 

LET p =110@: PRINT AT R,C;" ": LETC =C+1 

PRINT AT R+1,C;" ": PRINT AT R,C;” pies LETR=R-1 

: PRINT AT R,C;"0": IF R > 7 THEN RETURN 

LET p =1120: PRINT AT R+1,C;" " 

PRINT AT R,C3" “: LET R = R- 1: LET C = C - 7: PRINT AT Recs Kir 
: IF R > 3 THEN RETURN 

LET p =114@ 

REM fly into cloud, plane still moves normally but you can't see it. 
PRINT AT R,Cz"3j ": LET C = C - 1: IF C > 11 THEN RETURN 


LET ¢ =1168: PRINT AT R,C;” e 


REM start dive towards gunner. 

PRINT ATR, Ce" “sc LET R = Rot Be LET C= = 7s PRINT AT R,C;"M" 

: PRINT AT R+1,C;"m": IF R < 6 THEN RETURN 

LET p =1188 

PRINT AT R,C;" “: LET R = R + 1: PRINT AT R,C;"P": PRINT AT R+1,C;"p" 
IF R < 8 THEN RETURN 

REM third section of dive check and erase possible Left over missile. 

LET p =12@0: IF X <> 9 AND Y <> 7 THEN PRINT AT 7,9;" ” 

PRINT: AT RECE “2 LET IR = Rs 1 LET CC = C= 1s PRINT AF Rosen” 

: PRINT AT R+1,C;"m": IF R < 11 THEN RETURN 

LET p =122@: PRINT AT R,C3" ": LET R=R+1 

REM Last section of flight, call bombgun cascade each time. 

GO SUB bombgun: LET C = C — 1: PRINT AT R,C;"ij ": IF C > ® THEN RETURN 


REM Last two parts of cascade deal with plane going of screen. 

LET p =1240: PRINT AT R,C;"j ": RETURN 

REM reset plane's Row to 2 and set pointer back to top of cascade. 
PRINT AT R,C;" ": LET R = 2: LET p = plane 

RETURN 


REM reload 

REM if the camp js destroyed then dont reload ammunition 

IF HIT THEN RETURN 

REM explicit instructions for animation of figure. 

BRIGHT @: LET R = 18 

REM walk from tent to trees. 

FOR C = 24 TO 19 STEP -1: PRINT AT R,C;"S": PRINT AT R+1,C;"s” 

: BEEP @.07,-15: PAUSE 5 

PRINT AT R,C;"R": PRINT AT R+1,C;"r": PAUSE 3 

PRINT AT R,C;" ": PRINT AT R+1,C;" ": NEXT Cc 

REM use over-printing so that trees aren't damaged as figure gets close. 
OVER 1: PRINT AT R,18;"S": PRINT AT R+1,18;"s": BEEP @.01,-15: PAUSE 5 

: PRINT AT R,18;"S": PRINT AT R4+1,18;"'s f 

PRINT AT R,18;"R": PRINT AT Ret ,18s"e"2 PAUSE 3 

: PRINT AT R,18;"R": PRINT AT R+1,18;"r" 

REM make nojses as though figure goes behind tree. 

FOR J = 1 TO 2: BEEP @.01,-15: PAUSE 11: NEXT J 

REM show feet emerging from behind tree. 

PRINT AT R+1,15;"s"": BEEP 0.01,-15: PAUSE 5: PRINT AT R+1,15;"s" 

PRINT AT R+1,15;"r": PAUSE 3: PRINT AT R+1,15;"r" 

REM show whole figure coming out of tree. 

PRINT AT R,14;"S": PRINT AT R+1 214gish: BEEP @.01,-15: PAUSE 5 

: PRINT AT R,145 "S": PRINT AT R+1,14;" 
PRINT AT R,14;"R": PRINT AT R41 1b; "er": PAUSE 3 
: PRINT AT R,14;"R": PRINT AT Rt th =r" 
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1629 REM walk from tree to end of strip, onto grass at column 8 with bright on. 

1630 OVER @: FOR C = 13 TO 8 STEP -1: BRIGHT (C = 8) 

1648 PRINT AT R,C;"S": PRINT AT R+1,C;"s": BEEP @.01,-15: PAUSE 5 

165@ PRINT AT R,C;"R": PRINT AT R4#1,C;"r": PAUSE 3 

1660 PRINT AT R,C;" ": PRINT AT R#1,C;" ": NEXT C 

1669 REM print figure at column 7 ready to refill ammo dump. 

1670 PRINT AT R,C;"R": PRINT AT R+1,C;"r" 

1679 REM refill ammo dump, with sound effects. 

1688 FOR G = 6 TO 5 STEP - 1: FOR H = 18 TO 17 STEP - 1: FOR N= 2 TO 9 

1690 PRINT AT H,G; INK 3;NS$(N): BEEP @.02,H+G-N 

1700 NEXT N: NEXT H: NEXT G 

1709 REM remove figure from column 7. 

171 PRINT AT R,C;" "s PRINT AT R+1,C;" " 

1719 REM reset ammunition print and truth flags. 

1720 LET N = 8: LET OUT = @: LETH = 17: LET G = 6 

1729 REM walk from end of strip to tree, bright off after column 8. 

1730 FOR C = 8 TO 13: BRIGHT (C = 8) 

1748 PRINT AT R,C;")": PRINT AT R+1,C;"4+": BEEP 0.01,-15: PAUSE 5 

175@ PRINT AT R,C;"C(": PRINT AT R+1,C;"%": PAUSE 3 

1768 PRINT AT R,C;" ": PRINT AT R4#1,C;" ": NEXT C 

1769 REM over-print as figure reaches tree. 

1778 OVER 1: PRINT AT R,14;")"': PRINT AT R+1,14;"+": BEEP 0.01,-15: PAUSE 5 
: PRINT AT R,14;")": PRINT AT R+1,14;"4" 

1780 PRINT AT R,14;"C": PRINT AT R+1,14;"%"': PAUSE 3 
: PRINT AT R,14;"C'": PRINT AT R+1,14;"%" 

1789 REM overprint Legs as they go into tree. 

1798 PRINT AT R4+1,15;"4": BEEP @.01,-15: PAUSE 5: PRINT AT R4+1,15;"+" 

1800 PRINT AT R+1,15;"%": PAUSE 3: PRINT AT R+1,15;"%" 

1809 REM make noises as though figure is behind tree. 

1818 FOR J = 1 TO 2: BEEP @.01,-15: PAUSE 11: NEXT J 

1819 REM overprint as figure emerges from tree. 

1820 PRINT AT R,18;")": PRINT AT R+1,18;"+": BEEP @.01,-15: PAUSE 5 
: PRINT AT R,18;")"2 PRINT AT R#1,18;"4" 

1830 PRINT AT R,18;"C(": PRINT AT R+1,18;"*"': PAUSE 3 
: PRINT AT R,18;"C": PRINT AT R+1,18;"%" 

1839 REM walk from tree to tent. 

1840 OVER @: FOR C = 19 TO 24: PRINT AT R,C;")": PRINT AT R#+1,C;"+" 
: BEEP 0.01,-15: PAUSE 5 

1850 PRINT AT R,C;"C(": PRINT AT R+1,C;"*": PAUSE 3 

1868 PRINT AT R,C;" ": PRINT AT R#1,C3" ": NEXT C 

1869 REM reset Row and Column for use by plane routine. 

1870 LET C = @: LET R = 2: BRIGHT 1 

1888 RETURN 


1902 REM ammo/ print missile dump 

1992 REM OUT : OUT 

1909 REM take one of ammunition dump and check whether out of ammo. 

1910 PRINT AT H,G;NS(N): LET N=N- 1 

1920 IF N = ® THEN LET N= 8: LET H = H+ 1: IF H = 19 THEN LET H = 17 
: LET G = G - 1: IF G = 4 THEN LET OUT = 1 

1930 RETURN 


20020 REM missile directions 
2009 REM remove old missile by overprinting and calculate new position. 


2018 PRINT AT Y,X;M$: LET Y = Y - 3: LET X = X - 2: GO TO 2100 
2020 PRINT AT Y,X;M$: LET Y = Y - 3: LET X = X - 1: GO TO 2100 
2038 PRINT AT Y,X;M$: LET Y = Y ~ 3: GO TO 2100 

2048 PRINT AT Y,X;M$: LET Y = Y - 3: LET X = X +1: GO TO 2100 
205@ PRINT AT Y,X;M$: LET Y = Y - 3: LET X = X + 2: GO TO 2100 
2068 PRINT AT Y,X;M$: LET Y = Y — 2: LET X = X + 2: GO TO 2100 
2070 PRINT AT Y,X;M$: LET Y = Y - 2: LET X = X + 3: GO TO 2100 
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REM 3 missile is on same column as plane check for being near row of plane. 
REM if missile is close enough explode and reset missile to ready. 

IF X = C THEN IF ABS CY - R) < 2 THEN GO SUB explode: LET m = missile 

: GO TO m 


REM if missile is off screen then reset pointer 'm' to ready. 
IF X < @ OR Y < @ THEN LET m = missile: GO TO m 


REM print missile at new position. 
PRINT AT Y,X;M$: RETURN 


REM missile/ready to fire 
LET X = 3: LET Y = 16 
RETURN 


REM explode 

REM missile has hit plane so blow up plane and add to score. 
REM check whether explosion has taken place jn cloud or in sky. 
OVER @: LET SKY = (R <> 3 OR C < 16) 

: IF NOT SKY THEN PRINT AT R,C-1;" $ 

REM central flash and Low buzz, add to score for hitting plane. 
INK 2: IF SKY THEN PRINT AT R,C;"t" 

FOR I = 1 TO 5: BEEP 0.01,1 - 18: BEEP @.01,-I - 1@: NEXT I: LET SC = SC + 4 
REM jf explosion is seen then print cloud of debris. 

IF SKY THEN PRINT AT R-1,(-1;">a<": PRINT AT R,C-1;"$!8" 

: PRINT AT R4+1,€0-13":%;" 

REM high pitched whizz. 

FOR I = -4 TO 4: BEEP @.002,(5@ + ABS I): NEXT I 

REM remove all trace of explosion. 

INK @: IF SKY THEN PRINT AT R-1,C-1;" "s PRINT AT R,C-1;” = 
: PRINT AT R+1,C-1;" . 

REM print out new score line, reset plane and missile pointers. 
INK 8: GO SUB status: LET m = missile: LET p = plane 

LET R = 2: LETC =@ 

RETURN 


REM bomb gun 
REM if camp isn’t destroyed or plane hasn't got a bomb left then don't drop. 
IF NOT HIT OR NOT BOMB THEN RETURN 


REM place bomb on screen and start pointer down cascade. 

PRINT AT 13,5;".": LET bombgun = 3038: RETURN 

PRINT AT 13,53" ": PRINT AT 15,4;".": LET bombgun = 3048: RETURN 
PRINT AT 15,4;" ": PRINT AT 17,3;".": LET bombgun = 3058: RETURN 
PRINT AT 17,3; FLASH 1;" ": LET bombgun = 3@6@: RETURN 

REM clear plane away, make sure any missiles shoot off the screen. 
PRINT AT 12,8;" ": OVER 1: FOR I = 1 TO 7: GO SUB m : NEXT I 
REM flash border and make exploding noises. 


FOR I = 1 TO 5@: BORDER RND*7: BEEP @.01,RND*30 - 15: NEXT I 

REM set flag for end of gunner. 

REM set ink to sky-blue subsequent movement of plane is invisible. 
LET DEAD = 1: OVER @: INK 5 

REM reset cascade. 

LET bombgun = 3202: RETURN 


REM bomb camp 


REM if the camp has gone save bomb for the gunner. 
IF HIT THEN RETURN 


REM mark bomb as dropped and start cascade. 
LET BOMB = @: PRINT AT 14,21;".": LET bombcamp = 353@: RETURN 
PRINT AT 14,21;" ": PRINT AT 15,22; BRIGHT 0;".": LET bombcamp = 3540 


: RETURN 
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A Worked Example of a Video Game 
BRIGHT @: PRINT AT 15,22;" " 
REM explode tent. 
PRINT AT 16,23; OVER 1; INK 2;"#$" 
PRINT AT 17,23; OVER 1; INK 2;"%8" 
LET bombcamp = 3588: BRIGHT 1: RETURN 
REM remove explosion from tent. 
BRIGHT @: PRINT AT 16,23; OVER 1; INK 0;"#S" 
PRINT AT 17,23; OVER 1; INK Q;°%8" 
LET bombcamp = 3618: BRIGHT 1: RETURN 
REM remove top remaining Line of tent. 
PLOT INVERSE 1;184,33 + YT: DRAW INVERSE 1;16,0 
REM check whether tent is gone and reset bombcamp cascade. 
LET bombcamp = 3500: LET YT = YT -1: LET HIT = CYT = @) 
RETURN 
REM Load 
REM Load picture from tape. 
LET N$ = "background" 
INPUT ("" LOADING " + NS + CHRS 6 + “Start tape, then press enter. 
7; LINE x$ 
LOAD (NS) SCREENS 
RETURN 


REM create/characters 
REM make characters for ammo dump in user defined graphics set. 


LET D = 255 

FOR T= @ TO 6: FOR J = @ TO 7 
LET P= USR “G" — In8 + J 

IF J > I POKE P,D 


NEXT J: NEXT I 
RETURN 


REM credit 

REM print on bottom two Lines. 

DEF FN SCR,C) = 16384 + INT (R/8)*2048 + (R - INTCR/8)*8)*32 + C 
DEF FN CCAS) = 15368 + CODE AS*8 


LET R = 22: LET AS = “J/ISLAND DEFENCE/C BY BJJ & IOA” 
FOR J = 1 TO LEN A$: LET C = J - 1: GOSUB char: NEXT J 
LET R = 23: LET AS = “ HI-SCORE SCORED BY BJJ  " 
FOR J = 1 TO LEN A$: LET C = J - 1: GOSUB char: NEXT J 
RETURN 

REM char 

REM print j'th character of a$ at r,c, 


change attribute to red paper and white ink, beep. 

LET AT = FN SCR,C): LET FROM = FN CC(AS(J)) 

FOR I = @ TO 7: POKE AT + 1*256, PEEK (FROM + 1): NEXT I 
POKE 22528 + C + R*32,87: BEEP 0.03, CODE AS(J)-58 
RETURN 


REM hiscore 

REM change hi-score and print it on bottom of screen. 

LET HSC = SC: LET AS = STRS HSC 

LET R = 23: FOR J = 1 TO LEN A$: LET C = 10 + J: GOSUB char: NEXT J 
REM change name to flashing letters. 

FOR I = 23291 TO 23293: POKE 1,PEEK I + 128: NEXT I 

REM get three initials for hiscore from key board. 

LET J = 12 FOR C = 27 TO 29 

IF INKEYS <> "" THEN GO TO 5758 


IF INKEY$ = "" THEN GO TO 5760 
LET AS = INKEY$: GO SUB char: NEXT C 
RETURN 
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gram will ask you to LOAD first the special character set, ‘gameset’ (for drawing 
the plane, tent, man, etc.), and then the ‘background’ (which sets the scene), 
before starting the action. The listing is well documented, so there is no need 

for us to go into too much detail here. We shall simply outline a general approach 
for constructing these games, and describe methods of solving typical problems 
that arise. 


The Foreground 


It is essential to carefully plan your game before you start writing the program. 
You must first draw a rough plan of the proposed game scene on graph paper. 
Then sketch in the positions of fixed objects (for example, the sun and clouds) 
and also the areas to be traversed by moving objects (for example, the path of 
character blocks that at some time will contain characters to make up the planes). 
This should fix the scale of the objects to be used, and will give a general impres- 
sion of the final game. Time spent in careful planning at this stage will be a 
fraction of that needed to adjust a nearly completed program. You must ensure 
that the proposed display can actually fit into the graphics area, and that you 
never get a situation where a moving object introduces a third colour within a 
character block. Once you have decided on a screen layout, you must then 
create the objects for the foreground (for example, explosions, the plane, the 
man) — that is, the moving parts. The fastest BASIC command for putting a 
large object on the screen is the PRINT statement. So we build our objects out 
of defined character blocks, and use the CHARACTER GENERATOR program 
of chapter 5 to produce the required shapes. To get exactly the shape you want 
for a display, you should repeatedly examine the characters at their normal size 
and re-edit them if you are not satisfied. It may be helpful to add parts of your 
game-program at the end of the CHARACTER GENERATOR program (option 
7, see chapter 5). This will allow you to observe these objects in action while 
their final form is still under consideration. 


Exercise 14.1 

Add an extra option to the CHARACTER GENERATOR program so that you 
can edit a single character from within a group. This option should POKE the 
eight BINary values of the character grid being edited, together with the other 
characters in the group, into the display-file locations for specified positions on 
the screen; for example, the two blocks that make up the plane in horizontal 
flight to the right (see figure 14.1). This quickly allows you to evaluate the 
merits of altering one pixel within a character. 
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Figure 14.1 


The Background 


The background is now created using a combination of the CHARACTER 
GENERATOR and the diagram-construction routines from chapter 6. You first 
add large character blocks of colour using ‘paper’ for rectangular areas that 
approximate to large parts of the scene (for example, grass, sky, sun, etc.). Then 
superimpose the initial detail by PRINTing special characters (for example, the 
trees, sandbags, and the edges of the sun, grass and clouds etc.). This can be given 
final touches with the ‘point’ and ‘line’ options of the diagram routines. For 
example, the trees are made by adding lines and dots to the foreground explosion 
characters. We can expand the range of colours by allowing BRIGHT as well as 
normal colours. Special care must be taken when constructing blocks through 
which moving objects will pass. They must contain only one background colour 
with no, detail. Remember that only two colours are allowed in any one block, 
and there is always a danger that a moving object could introduce a third colour. 
In our background (see figure 14.2) there are two particular places where care is 
needed. 


(1) The planes pass over and behind a cloud on their return run, so the cloud 
contains a path of white blocks through its middle. Note that blue sky and white 
cloud cannot occur within the same character block on the path of the plane, so 
the boundary between sky and cloud on this path must be a straight edge. The 
plane actually disappears behind the cloud during its flight, so some of the 
blocks in this path contain white INK and white PAPER. Thus when the plane 
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enters this block the INK pixels take on the same white colour as the PAPER 
and the plane is indistinguishable from the cloud. 

(2) The sun, which appears to be a smooth circle, has flat edges on each side. 
The planes pass through one of these edges without encountering a combination 
of sun and sky within one block. This is shown in close-up in figure 14.1, which 
was created with the aid of the ‘big pixels’ routine of listing 5.2. This diagram 
ignores the true attributes of the blocks; it colours INK in black and PAPER in 
white. The true colours can be ascertained from the 1/16th scale picture drawn 
in the top left-hand corner. Naturally those character blocks in the scene that 
remain constant throughout the game can contain two colours. 


_ >; r 
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Figure 14.2 


Cascade Animation 


Once we have stored this first approximation of the background on tape, we 
need to write the routines that will position and move the foreground objects 
about the screen. Since we are aiming at speed of execution we must make 
these routines as explicit as possible. We need to minimise the amount of calcu- 
lation required while the game is being played. Any extra programming or 
calculation, however long, which, if done prior to the play would save precious 
milliseconds during the play, should be implemented. We describe one such 
technique in our example program, the popular cascade, or variable entry point 
method. The timewise-important routines in the program are referred to by a 
variable pointer (an identifier given in lower case). These routines are made up 
of a chain (or cascade) of explicitly programmed subtasks, only one of which 


A Worked Example of a Video Game 231 


will be undertaken on each separate entry to the routine. The solution to each 
subtask is laid out asa set of lines, after which the pointer to that routine is 
altered and we return to the calling program. On re-entry, the program naturally 
obeys a different section of code within that routine, usually the pointer changes 
to the next subtask down the cascade. With each call, this process continues with 
the pointer moving down through the sections of the cascade until it eventually 
reaches the bottom (where it will usually be reset to the top). The complete game 
will consist of an initialisation phase followed by a loop of calls to routines, each 
of which is a cascade that solves a specific problem within the game (for example, 
to move the aeroplane or to bomb the base). Cascade routines may even call 
other cascades! This gives an impression of a parallel process, which is essential 

if users are to believe that they are playing a game in which a number of different 
events are happening simultaneously. In our game we try to give the impression 
that the plane, gun and missiles can all move independently. 

Our game is a little too complicated to be an elementary illustration of this 
technique, so we introduce another, very much simpler, game (available on 16K 
machines as well). Consider the following two programs that perform indepen- 
dent functions. Listing 14.2 waits until a key is pressed then shoots a dot across 
the screen; listing 14.3 continuously moves a plus sign up the screen in a zig-zag 
pattern. Both programs use the fast animation techniques found in the ISLAND 
DEFENCE program; however, because each is so small, it is necessary to slow 
them down with a PAUSE command (note that excess speed is only a problem 
when programs are very simple). From these listings we create two cascade 
routines (listing 14.4) so that the dot and cross appear to move simultaneously. 

The dot cascade is in three parts: (a) place a dot at row 11, column 0; (b) if 
the user hits the keyboard then start the dot moving; and (c) move the dot one 
column farther across the screen until it hits the right-hand edge. Whenever one 
of these processes is finished the identifier of the routine ‘dot’ is moved down to 
the next section. After the dot has moved right across the screen, ‘dot’ is reset 
to the start position. 

The cross cascade is also in three parts: (a) place the cross at row 22, column 
8; (b) move the cross one row up and diagonally to the right on the bottom half 
of the screen; and (c) move one row up and diagonally to the left in the top 
half, and if the dot and cross lie in the same block, then SPLAT. 

The two routines are turned into a game by a main routine that loops repeat- 
edly through calls to ‘dot’ and ‘cross’, where, of course, these identifiers are 
perpetually changing so that they each refer to the correct part of their cascade. 


Listing 14.2 


200 REM dot 

210 PRINT AT 11,0;"." 

220 IF INKEYS = "" THEN GO TO 220 
2308 LET D = @ 

240 PRINT AT 11,D;" ":LET D =D +1 
25@ IF D = 32 THEN GO TO 218 

260 PRINT AT 11,D;"." 

270 PAUSE 1: GO TO 240 
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Listing 14.3 


300 REM cross 

312 LET R = 24: LET C= 8 

328 PRINT AT R,C;"+" 

330 PRINT AT R,C;" ":LET R= R- 1 
340 IF R < ® THEN GO TO 310 

358 IF R > 11 THEN LET C=C+1 
36@ IF R <= 11 THEN LET C=C - 1 
370 PRINT AT R,C;"+" 

388 PAUSE 1: GO TO 330 


Listing 14.4 


120 REM main Loop 

119 LET dot = 200: LET cross = 300 
128 GO SUB dot: GO SUB cross 

138 GO TO 120 


202 REM dot cascade 
218 PRINT AT 11,0;".": LET cot = 220: RETURN 


220 IF INKEY$ = "" THEN RETURN 
230 LET D = @: LET dot = 240: RETURN 


249 PRINT AT 11,D;" "LET D = D+ 1 

250 IF D = 32 THEN LET dot = 218: RETURN 
260 PRINT AT 11,D;"." 

270 RETURN 


300 REM cross cascade 
31@ LET R = 21: LET C= 8 
320 PRINT AT R,C;"+": LET cross = 33@: RETURN 


33Q PRINT AT R,C;" "sLET R= R- 1 
340 LET C=C+1 

35@ PRINT AT R,C;"+" 

368 IF R > 11 THEN RETURN 

378 LET cross = 380: RETURN 


380 IF R = 11 AND C = D THEN PRINT AT R,C;"SPLAT": STOP 
390 PRINT AT R,C;" ":LET R= R-1 

402 IF R < ® THEN LET cross = 310: RETURN 

410 LETC =C-1 

420 PRINT AT R,C;"+" 

430° RETURN 


Exercise 14,2 
Add a line to the calling loop of the above program so that after a SPLAT the 
pointers to the top of the cascades are reset and the score (number of hits) 
printed. 

Write a ‘duck shoot’ game where a hunter, under keyboard control, moves 
left and right at the bottom of the screen. He shoots at ducks that fly left to right, 
up and down, across the screen. 
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Further Animation Techniques 


With such a simple game we find that the saving, in time and programming 
effort, from using the cascade technique is very small. However in larger pro- 
grams, which can have complicated cascade programs (for example, the move- 
ment of the plane in ISLAND DEFENCE), the time savings can make the 
difference between a good fast game and a boring slow one. Note that there are 
eight different sets of character blocks that describe the plane; see figure 14.2, 
which shows the complete scene and one example of each plane, as well as other 
foreground objects. The cascade for drawing the plane is divided into sections, 
each of which places one type of plane in a particular area of the screen. 

In this game we show a variety of different ways of solving the problems of 
animation. The planes are moved by printing them in transparent INK, and then 
obliterated from their previous positions with blanks. The missile characters are 
OVERprinted (again with transparent INK) on the existing detail and then 
erased at their last position by OVERprinting with the same character. These 
methods have both advantages and disadvantages. Where removal of the old 
position can be combined with the printing at the new (see the sections where 
the plane flies horizontally) you will find that normal PRINTing often takes less 
time, but it does mean you lose any detail in the background. OVERprinting 
takes longer, but leaves detail undamaged. Using a combination of these tech- 
niques in a program can cause problems if two moving objects pass simultaneously 
through the same block: for example, what happens if a square containing a 
missile is blanked out by a passing plane? This can occur in the game at character 
block row 7, column 9. The effect is that the OVERprinted missile, which is 
supposed to cancel out the old one, is left hanging in mid-air. Discretion is the 
better part of valour and it is far better (timewise) to check for these problems 
and explicitly program a cover-up, rather than add complexity into your algor- 
ithm and perhaps even introduce another fault. The plane cascade contains an 
extra statement (at line 1190), which ensures that any such mishap is swiftly 
covered. When trying to remove faults, remember that a brute-force cover-up 
will probably be far quicker (in your time, and running time) than a fancy fault- 
avoidance routine. Although you should have foreseen most problems in the 
planning stage, and adjusted the background and the paths of moving objects, 
some peculiarities are certain to occur. 

There are two places where we have shown an object apparently passing 
behind a background object. In order that a plane can vanish behind the cloud, 
we simply made the INK white in those blocks where the plane was to disappear. 
Since a white plane in a white cloud is about as easy to spot as a black cat ina 
coal-cellar at midnight, we are tricked into thinking that the plane is hidden by 
the cloud. For the man marching behind the tree, the whole problem becomes 
more complicated. We still wish to see the tree in two colours when he is behind 
it. The trick this time is to make the man walk up to the tree normally; OVER- 
print him when he is in the same block as outer foliage, and then simply make 
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marching noises, without printing, for the appropriate length of time, before 
starting him off again from the other side of the tree. His legs must also reappear 
from behind the tree one block before his head when he is moving right, and 
equivalently when moving left. All these details must be carefully calculated 
before even writing the first line of BASIC code. 

A combination of these techniques for moving objects, making an allowance 
for them to pass each other, will enable you to produce displays of very high 
quality. Of course you must use machine-code routines if you require really fast 
and complex games. Even so, many of the routines can still be in BASIC. There 
is no need to produce programs written completely in machine-code unless you 
want to sell your games. 

Finally, as your games programs become more and more interwoven and 
cross-connected, you must keep a simple overview of the program. Note what 
tasks need to be done at the top level, use sensible variable names, put in plenty 
of comments during development, and above all, don’t panic! 

We leave you now with your Spectrum. It has proved reliable and sturdy, 
straightforward and easy to use. We are certain that you will have many, many 
hours (years!) of pleasure out of this machine. To start you off we give a number 
of ideas for projects in the next section. Good luck and good programming. 


Complete Programs 


I. Listing 14.1: the ISLAND DEFENCE game. We do recommend that you 
obtain the tape because you will find it time-consuming setting up the 
special character set and background. However, you should at some time 
create such character sets and backgrounds yourself. 

Il. Listing 14.2 (‘dot’). Type any key. 

HI. Listing 14.3 (‘cross’): no data required. 

IV. Listing 14.4 (‘main program’, ‘dot cascade’ and ‘cross cascade’). Type any 
key. 


4 


15 Projects 


I. Use your Spectrum to draw a digital clock. Use the special large characters for 
the digits and a colon to separate them. Your clock can be made to keep correct 
time by using the internal clock of the Spectrum (see page 130 of the Spectrum 

BASIC Handbook (Vickers, 1982)). 


II. Make a program that tests the Morse Code proficiency of the user. The con- 
tent for the program should be a paragraph of text; after translating into Morse, 
the Spectrum should print out the dots and dashes using the medium-resolution 
character blocks. It should also use BEEP to simulate the sound of Morse. Your 
program should have a variable rate of production of the Morse Code, so that the 
speed of the test can increase as the user becomes more proficient. 


III. Draw a set of international road signs. Your program should draw the back- 
ground of the figures (for example, red triangles); then use your own special 
routines or the programs of chapters 5 and 6 to finish off the foreground. 


IV. Construct crossword puzzles on your television set. Each square of the puzzle 
should be 2 by 2 character blocks. The four blocks can be either black (in which 
case nothing goes in the square), or white, with the bottom left-hand corner hold- 
ing the letter of a solution and the top two characters the clue number (if any). 
This allows space for a 16 by 11 puzzle. 

As you have also to place the clues on the screen, there will obviously be a 
shortage of space. This problem can be solved by using the ideas of the ‘slide 
show’ of chapter 13; put the puzzle in one frame, and the clues on the remaining 
four frames. Solutions to the puzzle can be added by a ‘cursor’ method or by 
having a special input code; for example, letter “A” (across) or “D’’ (down) 
followed by the number of the clue, followed by your solution. If you make the 
puzzle smaller you could even have the option of using this code to bring clues 
on to the screen one at a time (or perhaps place them in rows 23 and 24), in 
which case the crossword need not be moved off the screen. 


V. The Spectrum BASIC Handbook (Vickers, 1982) gives a program to draw the 
Union flag. Write programs or use the character generator and the diagram 
routines (chapters 5 and 6) to produce other flags. You can draw company logos, 
or even design new ones. Use the techniques in chapter 13 for accessing display- 
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file locations to add an extra option to the diagram routines. This option allows 
you to copy a set of character blocks (already on the screen and specified by 
‘cursor’) on to another set of blocks of the same size elsewhere on the screen 
(also specified by ‘cursor’). You could even rotate or reflect them! 


VI. The Spectrum BASIC Handbook (Vickers, 1982) shows how to use BEEP 
to create music(?). While BEEP is making the sounds, you can draw the musical 
notation on the screen. Construct the staves and then use special characters to 
place quavers, minims, etc. on the screen. The old music hall method of the 
‘bouncing ball’ could be used to beat the time of the tune. 


VII. Use the character block method to draw mazes. Naturally your program 
must generate mazes with real solutions. Give yourself time limits for getting 
through the maze. You can make the mazes dynamic, so that they change as the 
game progresses. Add extra problems: man-eating monsters that roam the maze; 
holes that suddenly appear and can swallow you up: ‘space warps’ that can 
transfer you anywhere in the maze if you do not move fast enough. 


VIH. Extend the ideas of chapter 6. Draw your own special histograms, pie- 
charts and graphs. Make them dynamic (either by the ‘movie’ method of chapter 
13, or the ‘worm game’ method of chapter 1, and its extended form in chapter 
14). Generate whole sets of special characters. Create (apparent) three-dimen- 
sional histograms by drawing every bar in three different-coloured sections. The 
height of the front section of each bar must be a whole number of character 
blocks and two character blocks wide. A side section is one block wide, the 
same height as the first section, with a triangular hat filling the bottom-right half 
of a block. The third section lies above the first section and is in the shape of a 
rhombus that touches the first two sections. This ensures that there are never 
more than two colours in any character block, and makes the bar look like an 
orthographic view of a rectangular block. 


IX. Create patterns. Use OVER with large numbers of random lines about the 
screen. Or draw lines in a dense but regular way to get Moiré patterns. For 
example, draw lines joining the points (0, I) to (255, 175 — I) forO <I <175, 
and points (I, 0) to (255 — I, 175) for0 <I < 255, Extend the ideas of the pat- 
tern program of chapter 5 to produce complex symmetrical patterns — any 
introductory book on crystallography (for example, see Phillips, 1956) will 

give you lots of ideas. 


X. The crystallography books (for example, Phillips, 1956) will give you many 
ideas for three-dimensional objects. Extend into four dimensions — vertices are 
simply a vector of four numbers and they require 5 X 5 matrices for transforma- 
tions. For an orthographic projection of a four-dimensional point, we simply 
ignore two of the coordinates (as opposed to one, z, in three dimensions). What 
are translation, scale and rotation in four dimensions? 
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XI. We have already presented two board games, Chess and Master Mind. There 
are many more possibilities: draughts (or checkers), Scrabble, Hangman, ludo. 
You can create a compendium of games. The Spectrum can simply act as the 
board, or it can also be a referee. If you feel really adventurous it can even act 
as an opponent. 


XII. Use special characters to construct a deck of playing cards. These can be 
incorporated into a program to play blackjack (or pontoon) with the Spectrum 
acting as the bank and opponent. 


XIII. You can draw certain types of brain-teasers on your television. For ex- 
ample, suppose you have nine squares and each is divided into quarters down 
the diagonals. Each quarter has a colour (blue “‘1”’, red “2”, magenta ‘3” and 
green “4’’) and a sign (“+” or ‘‘—”’). We represent each square as a sequence of 
four numbers that denote the areas taken clockwise around the centre. For 
example, we could have (—1, —2, 1, 4), (—1,3, 4, —2), (1, —4, —2, 3), C, 2, 
3, —4), (1,3, —2, -4), (1, 4, -3, —2), (2, —3, —4, 3) and two occurrences of 
(—1, —4,3, 2). The problem is to place the nine squares in a three-by-three 
arrangement, so that if two quarters on neighbouring squares touch, then they 
must be of the same colour but of opposite sign. You can use the Spectrum to 
draw the squares initially on the left side of the screen and a three-by-three grid 
of the same sizes on the right. Then you take squares from the left and place 
them in the grid, or replace them back to the left. 

Write a program to find a solution of the above problem — it takes about 10 
minutes to run, and finds two independent solutions. 


XIV. Produce a medium-resolution graphics package for manipulating 2 X 2 
quarter blocks. This package should be similar to the one we gave for character 
blocks in chapter 5. The screen thus consists of 64 by 44 quarter blocks. Take a 
photograph of yourself and superimpose a grid of 64 by 44 on it. For each 
square, decide whether it is mainly light or dark, and colour the corresponding 
quarter block accordingly. This seems like a lot of work; but note that most of 
the picture will be a light background, so if we use white PAPER and black INK 
most of the squares need not be considered. Since a head measures more in height 
than it does in breadth, you can get greater resolution if you draw the head side- 
ways on the screen. You could draw two heads side by side on the screen. 


XV. Write a PAC MAN type of video game. This involves drawing five moving 
objects on the screen at a time. In order to make the game move faster, allow 
only two of the ghosts to move with each move of PAC MAN. The ghosts should 
find the shortest path towards the player when they are in hunting mode, and the 
best escape route in running mode. Because of the complex layout of the screen, 
you will have to compromise. Simply move towards (or away from) the player if 
there is no wall in the way. Find a quick way of coding their movements as this 
will be the most time-consuming part of the game. Speed is the essence of a 
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good video game. Perhaps a simple machine-code routine could be used to print 
all five figures on the screen after altering their ‘PRINT AT’ positions. 


XVI. Write a program that first (OVER)prints a graphics menu of special symbols 
on the left-hand side of the screen, for example, the stylised components for 
electronic circuits (resistors, capacitors, etc.). These symbols should consist of 
groups of character blocks. Use a cursor to point at any menu-symbol and then 
(using OVER) drag a copy of it to a required position on the screen. Also add a 
facility for drawing connecting lines and labelling with thin numeric and special 
characters (for example, 22 for ohms). You should also allow deletion of symbols 
inadvertently placed in the wrong position. Extra options could include saving 
and loading, as well as deleting the menu from the final diagram. 


XVIL In all our perspective diagrams it is assumed that the objects lie totally 
in front of the eye. Change our programs so that they deal with the general 
case where vertices may be behind the eye. See Newman and Sproull (1973) 
concerning this three-dimensional clipping. 


Appendix A Implementing Programs 
on the 16K Spectrum 


Over 7K of this machine is used for the display and attribute files and for 
system variables. This automatically limits the size of programs and data to 
about 8.8K. Many of the programs given in this book far exceed this value, 
although most will run if the reader obeys the following proposals. 


(1) Delete all REMarks from the tape listings and any unused routines from 
library files (for example, ‘plot’ and possibly ‘scale’) before MERG(E)ing the 
routines. Also follow the hints given in chapter 13 for optimising the program 
code. For example, the program for drawing the jet (listings ‘lib1’, ‘lib3’ and 
‘9.9’) will just fit into the store if the REMs, ‘scale’ and ‘plot’ are deleted. 

(2) It is possible that there will not be enough store for the four alternative 
character sets (sets 2 to 5) and the User-Defined Graphics set (set 6). If there is 
enough store the address table for the six sets (set 1 is the standard set) should 
hold the values 15360, 29271, 30039, 30807, 31575 and 32080 respectively. It 
is possible that the use of sets with the lower addresses could corrupt your pro- 
gram and data, or even crash the computer. Use only the sets that do not 
interfere with the store! The CLEAR statement found at the beginning of pro- 
grams that use alternate characters must be changed from CLEAR 62294 to 
CLEAR 255 + the address of the lowest set available (greater than 1). You will 
find that the CHARACTER GENERATOR program does not have enough space 
for set 2, and in this case we must CLEAR 255 + 30039. If you have a program 
that requires set 2 then create these characters as set 5 (say), store it on tape, and 
load it into your program, which must, of course, have space for set 2. 

(3) You can break down programs into non-interdependent parts and store the 
pictures and/or data produced by them on tape. These files may be reloaded in 
conjunction with the other programs for further manipulation; for example, the 
diagram constructions of chapter 6. You should LOAD ‘libdiag’ and MERGE one 
of the histogram, pie-chart, graph or picture-editing programs. When you run the 
program you must remember not to attempt to use routines that are not cur- 
rently in memory. You can SAVE and LOAD the intermediate pictures using the 
SCREEN$ option, and arrays using the DATA option. You can then LOAD the 
picture-editing routines to finish off your diagrams. 

(4) Unfortunately, some programs will not fit into 8.8K of memory whatever is 
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done; these are the general hidden line algorithm for non-trivial objects, the 
movie program and the ISLAND DEFENCE game. If you are serious about 
studying computer graphics on the Spectrum we would strongly advise you to 
buy the 32K expansion for your machine. 


Appendix B- BASIC Program Listings 


We now give a list of the BASIC program listings stored on the companion audio- 
cassette tape. These routines are in the form necessary for running on the 48K 
version of the Spectrum. Most of them need no changes in order to run on a 
16K machine. However, if you have this type of machine you should check the 
REMarks in listings given in the book for any changes, and read appendix A. 
‘movie’, the five frames ‘sphere1’ to ‘sphere5’ and ISLAND DEFENCE are the 
only routines that are 48K specific. You will find that with chapter 6 you have 
to LOAD ‘libdiag’ and MERGE just one of ‘6.8’, ‘6.9’, “6.10&11’ and ‘6.12’ in 
order for it to fit in the store. Should you need more than one type of data 
graph on the screen at any one time, you must intermediately SAVE picture on 
tape and reLOAD the screen after a new program has been created. 


SIDE 1 
File Name Contents 
directory 1 
lib1 Listings 2.1, 2.2, 2.3, 2.4,2.8 and 3.3; 
routines for mapping two-dimensional Euclidean space on to 
graphics area. 
29 Listing 2.9; joining points of regular N-gon. 
22 Example of envelope. 
a I} Spirograph. 
3.1 Square inside square inside square etc. 
lib2 Listings 3.4, 4.1a, 4.2a, 4.3a, 4.4a, 4.5, 4.6; 
routines for matrix manipulation of two-dimensional space. 
4.10 Construction of a general ellipse. 
ti | Construction and view of four ‘space ships’. 
ofl Point of intersection of line and plane in three-dimensional 
space. 
12 Point of intersection of two lines in three-dimensional space. 
7 3&4 Example of dot and vector product. 
TS Inverse of a 3 X 3 matrix. 
76 Point of intersection of three planes in three-dimensional space. 
Lied Line of intersection of two planes in three-dimensional space. 
lib3 Listings 3.4, 9.1, 9.2 and efficient rewrites of 8.1, 8.2, 8.3 and 


8.4; routines for matrix manipulation of three-dimensional space. 
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8.5&6 Rotation of point about a general axis of rotation. 
9.6&7&8 scene3, construction and drawit routines; 

necessary for drawing an orthographic view of two cubes. 
99 Additional routines for drawing the jet (orthographic). 
9.10&11 Routines for constructing an orthographic body of revolution. 
10.1 Orientation of a three-dimensional triangle. 
9.3&10.2 scene3 and hidden surface routine for drawing a cube. 
10.3 Hidden surface routine for drawing a convex body of revolu- 

tion. 
0.1 Construction routine for a flying saucer(!). 
10.4 Hidden surface routine for drawing a mathematical surface. 
11.1&2 Perspective view of two cubes. 
124 General hidden line algorithm. 
12.2 Hidden line perspective view of two cubes. 
12.3&4 Construction routines for cuboctahedron and icosahedron. 
12.5&6&7 Construction routines for two stars, and a scene3 routine. 
movie Program for displaying five frames in quick succession. 
sphere | 
sphere2 
sphere3 Five frames needed to make a movie of a rotating sphere. 
sphere4 
sphereS 
SIDE 2 
File Name Contents 


directory 2 
delete Utilities from listing 13.9. 


renumber 

eye) The CHARACTER GENERATOR. 

5.4 Main program for simple tessellated patterns. 

libdiag Listings 6.1, 6.4, 6.6; support routines for diagram construc- 
tion. 

6.2 ‘paper’ and ‘ink’. 

63) ‘point’ and ‘line’. 

6.5&7 ‘label’, ‘thin’ and ‘create’ 

6.8 Histogram routine/type 1 

6.9 Histogram routine/type 2 

6.10&11 Pie-chart and hatching routines. 

6.12 Scientific graph routine. 

thin3 Characters stored in set 3 and used to make thin characters. 

thin4 Characters stored in set 4 and used to make thin characters. 

1.16 The WORM GAME. 

5.6 MASTER MIND program. 

masterset Characters needed by MASTER MIND program. 


Df The Chess board program. 
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chesspiece Character set holding the chess pieces. 

14.1 ISLAND DEFENCE game. 

gameset Character set needed for ISLAND DEFENCE. 
background Scenery for the game. 

1.4 Fractal program. 

Spe) OVER patterns. 

Sed Displaying the binary construction of a given chracter. 
5.2 The big pixels program. 

Si Constructing a graphics character from eight binary numbers. 
13 Menu input for 10 vertices of a polygon. 

13.6 Scrolling of screen with wrap around: in machine-code. 
13.7 Same as 13.6, but written in BASIC. 

13.8 Program that lists itself, giving all numeric codes. 


144 Simple cascade program: SPLAT. 
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Further Reading 


Read any periodical, magazine or journal relevant to computer graphics, such as 
SIGGRAPH, CADCAM, CAD journal (and there are many, many more), and the 
more advanced graphics textbooks (for example, Newman and Sproull, 1973), 
as well as the general computer newspapers and monthly magazines, such as 
Personal Computer World, Practical Computing, Interface, etc. It does not 
matter if you do not immediately understand the more advanced articles: it is 
important to appreciate the flavour, excitement and achievement of the subject. 
Obtain the promotional and advertising literature of the major graphics com- 
panies (Tektronix, Imlac, A.E.D., Sigma, Hewlett-Packard, D.E.C., etc.), and 

get as much information as possible about graphics software packages. Keep an 
eye on the television usage of computer graphics, whether it be in science pro- 
grams, science-fiction melodramas or advertisements. Study video games and 

try to understand from the display how the characters are drawn and 
manipulated. 


Index 


A 65, 143, 162 backing store 31 
ABSOLUTE 69, 70, 154, 155, 158 ball 25,60 
absolute 8 bar-chart 110 
absolute value 46, 53,126 bars 109,110,114 
accents 94 base vector 47,49,50,53,59,125-7, 
ACTUAL 69, 70, 72-6, 79, 80, 154-63, 129, 137, 141, 153, 185 

165, 182, 187 BASIC 1,5, 7,16, 23, 27, 29, 30,31, 36, 
acute angle 55 54, 62,65, 76, 113, 205, 207-209, 212, 
addressable points 27 214-18, 221, 228 
Adjoint method 64, 134, 148 battle formation 76 
aeroplane 167, 221,229 BEEP 13,219, 235, 236 
algebra 43 BIN 6, 15, 86,88, 228 
algebraic expression 56 binary 18 
ALPHA 69 binary bits 6 
alphabetic character 89, 166 binary switch (on/off) 5,11 
alternative characters 89-102 binary representation 6 
amplitude 46 bits 6,18 
analogue input 103 black 6,12, 15-18, 106, 230 
angle 20, 53-5, 74, 146,149, 153,159, block graphics 83,85, 86 

160 blue 16-18, 219, 221,229 
angle between lines 127,128 body of revolution 2, 167-9, 176, 189 
animation 14, 19,71, 201, 209, 233 body of rotation 170,171 
anti-clockwise 41,57,58,68, 94, 140, BORDER 6,51, 218, 219, 221 

172-6, 190-93, 201 bottom left-hand corner 27,29 
arc 20,56,116, 117 bottom row 152 
areas 27,69, 70 bouncing point 19 
arrays 32,35,62,69,71, 72, 79,80, boundary 8,19 

129, 130, 135, 160-62, 172, 180, boundary polygon 57-9 

181, 187, 196, 201 brackets 28,46, 125,203 
array bound error 76 brain teaser 237 
array index see index BREAK 219 
assembler 208 BRIGHT 15-18, 105, 204, 229 
assembly language 208 building brick 70,71 
astroid 78 BYTE 2,6 
AT 16, 204, 218 
ATN 54 

Cc 161 

ATER 16,23 CalComp 33, 48 


attribute 15,16, 18,105, 230 

attribute conversion 16,17 

attribute file 15,16, 18, 209, 239 

axes, axis 29, 33,49,51,69, 110,119, 
124, 146, 149 

axis of rotation 149-51, 153, 169 


calculus 43 

capitals 96 

Cartesian 27, 29,31,124 
cascade 230-34 

cassette 2, 31, 96, 241, 255 
castling 101 

Celtic 21,38 

B 65,143, 162 centre 36,42,54,77, 106 
background 5,6,114, 228-30, 233 CHARS 83-5, 89, 94, 207 


Index 


character 7, 83 

character block 7,9,15,16, 18,19, 21-3, 
25,33, 83, 84, 86, 103, 109, 110, 119, 
161, 205, 206, 228, 229, 236 

character code 2,85 

character editing 89 

character generation 89 

CHARACTER GENERATOR 89-95,99, 
102, 107, 109, 119, 203, 228, 229, 238 

character graphics 1, 83 

character set 83, 87,89, 93,95,107, 207 

character table see table 

chequer board 88 

chess 99,102, 237 

chesspiece 99 

CHR$ 204 

CIRCLE 19, 20, 36 

circle 19,36,37,41,42,59,60, 106,117 

circumference 36 

CLEAR 94, 210, 238 

clipping 51,82,162, 189, 238 

clock 235 

clockwise 57, 140, 172-5, 190-93, 201 

closeup 189 

cloud 221,228, 229 

CODE 83, 85-7, 204, 205, 207, 214, 215, 
218 

coefficients 64,65 

cogs 41 

collisions 23 

colon 218,219 

colour 5,6, 15,18, 21, 23, 33 

colour code 18 

colour sensor 18 

column 16,62, 104, 206 

column vector 62-5, 74, 134, 137, 143, 
144,151,152 

combination of transformations 65,66 

command 5-9,11,19,93 

commutative 63 

composite colour 18 

concentric circles 86 

cone of vision 183, 185,189 

conic section 59 

connected 56,138 

construction routine 70,72, 75,79, 80, 
161, 169, 187 

CONTINUE 114 

continuous curve 121 

control codes 204, 205 

convex 57-9, 174-7, 185, 190-92, 201 

coordinate axes see axes 

coordinate geometry 27,43,124 

coordinate origin see origin 

coordinate pair 28 

coordinate system 33,45,62,69-71 

coordinate representation 128 

coordinate triple 124, 156, 163 
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coordinates 29,32, 35,37, 54, 62, 236 

coplanar 130 

COPY 87,94 

copyright 83 

COS 35,54 

cosine 34,122 

Cosine Rule 55 

crosswires 103 

crossword puzzle 235 

crystallography 236 

cube 156, 157, 159, 162-6, 172, 174, 
181, 183, 186, 187, 193, 196, 199, 200, 
212 

cuboctahedron 198, 199,201 

cursor 14, 93, 103, 104, 106, 116, 203, 
204, 236 

curves 28, 37, 39,40, 55, 56, 106, 139, 
185 

curved lines 117 

cyan 16-19,219 


D 180 

dashed line 48,49, 52 

DATA 94, 163, 168, 208, 238 

data base 72, 79, 80, 160, 161, 165 

data graph 1, 102,103,107 

data structure 201 

debugging 114 

decimal 6, 120,214 

definition set 169 

degrees 34,127 

delete 93,212,220 

DELETE 204 

determinant 63,64, 131,136 

diagonal lines 37 

DIM 76,153 

dimension 28 

direction 28,53,54, 126 

direction cosine 54,55, 126,127, 129 

directional vector 47,49,50, 53-6, 59, 
125-30, 132, 141, 151, 153, 185 

disc 41,42 

discrete curve 121 

discrete points 12 

display 5,9,11,12, 20, 88, 207, 218 

display file 6,7, 15, 18, 84-6, 105, 
205-209, 212, 228, 239 

distance 46,53,57, 124, 126, 129, 183, 
189 

dominoes 95 

dot product 127-30,132, 151 

DOUBLE 94,96 

DRAW 7-9, 13,19, 20, 31, 39,51, 52, 
88, 89, 105, 106 

drawing board 182 

dual interpretation 48, 125 

DX 69,155 

DY 69,155 
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dynamic scene 82 
DZ 155 


E PPC 215 

edges of square 14 

EDIT 203,219, 220 

editor 93 

efficiency 76,217 

Egham 110, 113 

electron beam 5 

ellipse 37,59,60, 77, 78 
ellipsoid 169 

en passant 101 

ENTER 102, 103,214 
envelope 40 

Euclid 43 

Euclidean geometry, space 27,43 
Euclid’s algorithm 42 

EX 155 

extended keys 204 

EY ISS 

eye 69, 82, 155-60, 184, 187 
EZ 155 


F161 

facet 154, 155, 161, 172-5, 183, 185, 
190-96, 201 

fanfare 22 

file handling 204 

flag 235 

FLASH 15-19, 105 

FN 2,218 

FOR loop 6, 8, 10,95, 153 

foreground 6,228 

format 120 

fourth dimension 236 

fractal 9 

frame 27, 29,209 

French 94 

functional representation 55,56, 59,60, 
121, 137-9, 192 


game 14, 22, 23, 25,95, 218, 237 

gameset 228 

garbage 161 

general form 37 

general point 45,46, 53, 125-7, 133, 
138, 185, 192 

geometrical art 34 

GO SUB 1,93, 215, 218 

GOTO 215,218,219 

graph paper 167 

graphics characters 85-9, 93 

graphics frame, area, rectangle 27-9, 35, 
51,52, 75, 104, 180, 189, 228 

graphics mode 83, 85, 88, 89, 93 

graphics package 1,27, 33 

graphics pen 8,19 

graphs 1,107,109, 118-20, 236, 238 
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green 16-18, 93,94, 106, 221 
grid 8,9,93,94, 167, 179, 180 
gun 221 


H 161 

hatching 115-17 

head tilt 69,155,160 

hexagon 161 

hi-byte 212,213 

hidden lines, surface 1, 2,110, 114, 139, 
140, 154, chap. 10, 190, chap. 12 

high resolution 9, 18,19, 21,35 

highest common factor 42 

highlight 2,205 

histogram 1,102,107, 109, 110, 236, 
238 

HORIZ 29 

horizon 182 

horizontal lines 8,9 

horizontal rows 27 

horizontal set 169 

hyperbola 40, 59 


icosahedron 198, 199, 201 

identifier 1 

identity matrix 63,65,71, 73,75, 150, 
157 

IF 23 

illuminated dots 18 

IN 1,2 

index 35,79 

information 62,79 

INK 5-8,11,15, 16,18, 19, 21, 33, 88, 
94,95, 103, 105, 106, 109, 205, 229, 
230, 233 

ink blot 95 

INKEY$ 8 

input parameter 1,39 

INPUT 8,9, 12,43, 71, 82, 84, 85, 99, 
116, 121, 203, 204 

inside polygon 57,58 

INT 29 

integer pair 7 

intersection 45,49, 50,51,59,60, 116, 
117, 128-31, 134, 136, 137, 141, 183, 
201 

INVERSE 11, 14,15 

inverse matrix 64,68, 134, 136, 148,149 

inverse transformation 68, 148 

invertebrates 118 

ISLAND DEFENCE 221-34, 240 


jaggedness 35 
jet 166,167 
joystick 103 


Kells 39 
key 8,93, 203, 210 
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keyboard, control 5,9,13, 14, 22, 25, 76, 
83, 87, 103, 204, 232 


L 70,79, 161 

labels 107, 109,110,126 

lattice 103 

LDIR 208 

left-biased 119 

left-hand corner (bottom) 6, 93 

left-hand corner (top) 27, 29, 230 

left-handed triad 124, 146 

length 126 

LET 1, 209, 217 

libl 2, 31 

lib2 82 

lib3 3,171 

library file 31 

limitations 166, 191, 196 

line of sight 155, 160 

linearly dependent 125 

linear equations 143 

linear transformation 62,64, 66, 143 

lines 8, 11-13, 27, 28, 30, 35, 49, 50, 69, 
70, 76, 105, 129, 130, i39, 141, 154, 
155, 156, 161, 167, 174, 176, 181, 184, 
186, 196 

linked list 201 

LIST 9, 105, 220 

LOAD 2, 94, 103, 106, 209, 210, 218, 
221, 228, 238, 241 

lo-byte 212, 213 

logical expression 23 

logo 235 

long shot 189 

look-up table 212 

low resolution 9, 19, 21, 25,35 

lower case 1, 3, 22, 96 


machine-code 207-9, 212, 218, 221, 234 

magenta 16-18 

main-frame computer 5 

maintain the vertical 159 

major axis 37,60,77 

mapping 29, 189 

MASTER MIND 95-9, 102, 204 

masterset 96 

matrix chap. 4, chaps. 8-12 

matrix addition, sum 62,63, 143 

matrix multiplication, product 63-5, 
143, 144, 152 

matrix of coefficients 65 

matrix of pixels 27, 28 

matrix representation 62,65, 143 

matrix transformable 78 

maze 236 

medium resolution 86, 237 

memory-mapped 6 

menu 203, 204 

MERGE 2, 31, 94, 95, 110, 212, 238, 241 
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microfilm 35 

mid-point 192 

minicomputer 5 

minor axis 37,60,77 

missile 221, 233 

mnemonic 208 

modular programming 1, 22, 71, 107, 
164, 176 

modules 1 

modulo 41,46, 57,58, 140 

modulus 126, 127 

Moiré patterns 236 

monitor 18 

Morse Code 235 

movie 82,210,212 

music 236 

mutually perpendicular 33, 56,151 

negative sense 125, 126 

negative set 56, 138, 139 

NEXT see FOR 

NOF 161 

NOL 79, 161 

non-collinear 132, 133, 139 

noncommutative 132 

non-singular 64 

normal 37, 128, 129, 133, 135, 136, 141, 
155, 185, 186 

NOV 79,161 

number theory 43 

NUMH 169 

NUMV 169 

NXPIX 27, 29,35 

NYPIX 27, 29,35 


object 69-71, 154 

OBSERVED 69, 70, 72, 75, 78-80, 155-63, 
165, 172, 187, 191 

observer 70, 82, 182 

obtuse angle 55 

octahedron 174, 199, 201 

OFF 93 

optical illusion 37,38 

orange 88 

orientation 57,58, 68, 76, 82, 94, 140, 
141, 172-6, 191-3 

origin 27-33, 35-8, 41, 46-8, 53-5, 66-9, 
71, 73, 74, 76, 124, 129, 139, 140, 146, 
149, 155, 184-7, 201 

orthographic chap. 9, 187 

OUT 1,2 

OUTput parameter 1 

outside polygon 57,58 

OVER 11-13, 103, 109, 113, 114, 233, 
236 


P 69,154 
PAC MAN 221, 237 
pad 106 
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page 205, 206 

PAPER 5,6, 11, 15, 16,18, 19, 25, 88, 
95, 103, 105, 114, 204, 205, 229, 230 

parabola 59 

parallel 28, 29, 38,47, 49-51, 126, 129, 
130, 132, 136, 141, 155 

parameter 37,41 

parametric forms 55,56, 59,60, 78, 125 

passing arrays 69 

patterns 11, 12, 21, 25, 34, 37, 42, 43, 46, 
88, 95, 236 

PAUSE 218, 219, 231 

pencil 41,42 

PEEK 207, 213 

perpendicular projection 56, 124 

perspective 155, chap. 11 

perspective plane 183, 184,189 

pH 122 

PHI 169 

PI 20, 34 

pie-charts 1, 102, 103, 107, 109, 115-17, 
236, 238 

ping-pong 25 

pixels 7,8, 10-12, 14, 18, 19, 25, 27-30, 
35, 51, 52, 67, 83-8, 93, 103, 105, 110, 
180, 181, 189, 228 

pixel coordinates 9 

pixel vector 27 

planar object 166, 191 

plane 27, 128, 129, 132-4, 136-42, 192, 
201 

PLOT 7-10, 13, 31, 33, 51, 52, 88, 89, 
93, 105, 106 

plane constant 129, 135,141 

plot pen, head 29, 30, 33, 36,37 

point 8, 11-13, 28, 29, 47, 105, 129, 140, 
183, 185 

point of contact 42 

point of reference 76 

point vector 46, 126 

pointer 201 

POKE 6, 16, 84, 88, 207-209, 212, 228 

polygon 9, 14, 27, 28, 32, 34, 57, 59, 76, 
106, 140, 141, 154, 161, 174, 176, 
183, 190, 203 

positions 154 

positive sense 125, 126 

positive set 56,138, 139 

postmultiplication 65, 153 

PPD 183 

prefix 107 

premultiplication 64,65, 74, 143, 144, 
153, 158, 163 

primitives 27, 28,30, 32 

principal range 54 

PRINT 9, 15, 16, 21, 83, 84, 94, 113, 
204, 213, 217, 218, 228, 229, 233 

program variables 1 

projection 154 
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prompt 203 

pyramid 166, 174, 189,199 
pyramid of vision 189 
Pythagoras 46, 55 


Q 69,155 

quadrants 53 
quadratic equation 60 
quadrilateral 175,176 
quarter blocks 86 
quarter-circle 39 
quote marks 93 


R 65, 70, 143, 159, 161, 162 

radians 20, 34, 36, 54, 72, 73, 82,116 

radius 19, 36,37, 78, 116, 139 

rainfall 110 

RAM 85, 88, 89 

random 13, 16, 236 

rapid transfer 207 

taster scan 5 

tay 183 

READ 8, 94, 122 

rectangle 31 

rectangular block 164, 174, 236 

rectangular matrix 27,28 

red 16-19, 88, 104, 219, 221 

reflection 67,69, 74, 78, 95, 116, 146 

registers 208 

regular polygon 35 

relative 8, 20 

REM 1, 2, 204, 205, 213, 238, 241 

renumber 93, 212, 220 

resolution 35,36 

RESTORE 215 

retina 183 

thombic dodecahedron 199, 201 

right-biased 119 

right-handed triad 124 

RND 13 

road sign 235 

ROM 83, 85, 94 

roots 60 

ROTATE 94, 95,109 

rotation 66, 68, 69, 73, 77, 78, 94, 109, 
143, 146, 148-51, 153, 156, 158, 159, 
170, 171, 176, 236 

rotation matrix 68, 73 

rounding errors 129 

row 16,62, 104, 206 

row vector 64,65, 143 

RUN 2, 94, 215, 220, 221 


S 169 

saw-tooth pattern 121 

SAVE 2, 94, 95, 106, 209, 218, 238, 241 

scalar 45,63 

scalar multiple 45, 46, 53, 63, 124-6, 130, 
143 
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scalar product 55,127 

scale 28, 29, 33, 110, 119, 236 

scaling 66-9, 73, 143, 145, 146, 148, 151 

scaling factor 29, 33 

scaling matrix 67 

Scandinavian 94 

scene 69, 79, 161, 183 

scientific graphs see graphs 

screen 5-8, 11, 13, 18, 25, 27, 35, 42, 51, 
62, 69, 73, 76, 83, 84, 88, 155-7, 180, 
184, 189, 206, 207, 210, 221, 228 

screen centre 51 

screen coordinate system 71 

SCREEN$ 23, 238 

scroH 212 

segment 8,40, 41,45, 51, 116, 140, 169, 
180, 193 

semicircle 39, 169,170 

sense 48, 53,125, 132 

SETUP 69,70, 72, 73, 75, 76, 78-80, 
154-63 

shading 201 

shift 93 

side effect 36, 38 

similar triangles 183 

SIN 35, 54, 122 

sine 34,153 

sine curve 59 

single-valued function 177 

singular 64 

skeleton 156 

slice 116,176 

space 83,93 

space ship 72-6, 78, 80, 82 

special characters 109 

SPECTRUM 2, 5,9, 18, 19, 27, 34, 35, 
83, 93-5, 110, 196 

sphere 139 

spheroid 169, 210 

spiral 37-9, 59 

Spirograph 41, 42 

square 9, 10, 14, 31, 32, 41, 46,47, 156 

squash game 25 

standard set 83 

star-shaped 199-201, 212 

STOP 114 

storing information 79 

straight-ahead ray 183 

Straight line 35, 45,'56, 125, 166 

STR$ 204 

subroutines 1, 22, 25, 33, 161, 162, 218 

subscript 57, 58,62, 71, 73 

superscript 62 

surface 137-9, 174,177, 179-81, 190 

SX 67,145 

SY 67,145 

symmetry 95 

system variable 83 

SZ 145 


T 469 

table (of characters) 83, 87,89, 207 

table and chairs 82 

tangent 45 

tangential 40 

target 22 

television 18, 189 

temperature 113 

template 120 

tennis 221 

tent 221 

tetrahedron 166, 174, 186, 189, 199, 200 

THETA 68 

thin characters 107, 119,120 

three-dimensional clipping 238 

three-dimensional space chaps. 7-i2 

tilt of head see head tilt 

top down 1 

trail 13 

transformation 64-6, 70, 74, 76, 94, 158 

transformation matrix 69, 144,152 

translation 66, 68, 69, 73, 76,77, 143, 
145, 148, 151, 156, 158, 236 

transpose 65, 143 

trigonometric function 34, 54 

triskele 21,39 

triangle 140, 142,173,175, 176, 181, 201 

two-colour pictures 86, 114, 161,172,229 

two-dimensional space chaps. 2-4 

two-dimensional vector 28 

two-fold symmetry 166 

TX 66, 145 

TY 66, 145 

TZ 145 


UDG 87, 88 

unit distance 28 

unit matrix 63 

unit vector 53-5, 126, 127 

user-defined 83, 87-9, 93, 96, 109, 110, 
239 

user friendly 203 

USR_ 87, 88, 209 


V_ 80, 161, 165, 187 

vanishing point 185, 186 

variable entry point 230 

vector 27, 28, 45-50, 53,62, 124, 125, 
132-5, 141, 142 

vector addition 45,46, 124 

vector combination 47 

vector pair 47 

vector product 132, 137,141 

vector sum 125 

VERT 29 

vertex, vertices 32,35, 62, 69-76, 140, 
154-6, 160, 161, 167, 172-4, 184, 186, 
201 

vertical column 27 
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vertical labels 109 

vertical line 8,9 

vertical set 169,176 

video game 25, 203, 221 

view 80, 82, 164-7, 180 

view plane 155, 157, 159, 180, 182, 183, 
189-92 

vision 183 

volumes 27 


W 80, 161, 165, 187 

well-behaved curves 59 

white 6, 15-18, 94, 221, 229, 230 
window 29 

wire diagram 156,172, 174, 212 
worm 22, 204 


X 70, 79, 160 

x-axis 27, 28, 33,37, 42,45, 53,54, 74, 
94, 95, 121, 124, 146, 147, 159 

x-coordinate 28, 30, 32,45,46,51,59, 
67, 121, 124, 145, 154, 160, 177, 179, 
183 


Index 


x-direction 42, 75 

XMOVE 30 

XORIG 29 

XPEN 29 

XYSCALE 29, 33,36 

Y 70,79, 160 

y-axis 27, 28, 33,45, 54,67, 94, 95, 124, 
147, 149, 156, 158, 159, 169 

y-coordinate 28, 30, 32,45, 46,51, 59, 
67, 121, 124, 145, 154, 160, 177, 183 

yellow 16-18, 88, 93, 219, 221 

YMOVE 30 

YORIG 29 

YPEN 29 


Z 160 

z-axis 124, 147, 149, 155-60, 173 

z-coordinate 124, 140, 154, 155, 160, 
177, 179, 183, 189 

zero set 56, 138 

zoom 14, 82, 162 

ZX Spectrum 5, 87, 205, 207 
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ammo 225 

angle 54 

bar 111,113 

big pixels 86 

bomb camp 226 
bomb gun 226 
camp 223 

celtic 38 

char 227 
CHARACTER GENERATOR 89 
charset 101 

CHESS GAME 99 
circlel 36 

circle2 26 

clip. <53 

construct tables 213 
create 109,227 
credit 227 

cross 232 

cross cascade 232 
cube 165,175,197 
cuboctahedron 198 
cursor 104 

dashed lines 48 
delete 216 
DIAGRAM PROGRAM 108 
dot 231 

dot cascade 232 
dotprod 133 
drawit 80, 81, 166, 168, 188 
drawlin 179 

ellipse 78 
envelope’ 40 
explode 226 

Euclid 43 

f 179 

fanfare 24 

flash 100 

FN A 206 

FNT 207 

FN X 30 

FN Y 30 

genrot 150 

gobble 25 

graph 119 

grid 104 

hatch 117 


hidden 194 

hiscore 227 

histo/typel 111 
histo/type2 113 
icosahedron 198 

idR2 66,77 

idR3 144 

in 118 

ink 105 

input 100, 204 
intersection (line and plane) 130 
intersection (three planes) 135 
intersection (two lines) 131 
intersection (two planes) 138 
inv 135 

ISLAND DEFENCE 222 
jet 168 

key 24 

keyboard 223 

label 107 

line 105 

lineto 31,53 

list 101, 204 

load 106, 210, 222, 227 
loader 209 

look2 70 

look3 160 

main program (2-D) 71 
main program (3-D) 162 
main program (chess) 100 
main program (diagrams) 108 
MASTER MIND 96 

menu 205 

missile routines 225,226 
move 100 

moveto 31 

movie 210 

mult2 66, 76 

mult3 144 

number 120 

orientation 141, 173 

paper 105 

pie-chatt 115 

piece 100 

plane 223 

plot 34 
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point 105 slide 210 
polygon 33 spirall 38 
print routine 207 spiro 43 
query 108 square (outside square) 47 
reload 224 starl 199 
renumber 216 star2 200 
revbod 170,177 start 29 
rot2 68,77 start/restart 222 
status 25,223 
rot3 148 
surface 178 
scale2 67, 77 symbol 120 
scale3 145 target 25 
scene2 735 73; 78, 81 thin 109 
scene3 3, 164,165, 168, 178, 188, 197, 199 tran2 67,77 
scroll (wrap around) 213,214 tran3 145 
self-listing program 215 vecprod 133 
set 222 worm 25 
setorigin 30 WORM GAME 23 


ship 73,80 


Software Cassette 


The BASIC program listings described in full in Appendix B 

are available on a software cassette, priced at £9.00 (including 
VAT) in the United Kingdom. 

The cassette is obtainable through major bookshops, but in case of 
difficulty it can be ordered direct from 

Globe Book Services 

Canada Road 

Byfleet 

Surrey KT14 7JL 


ISBN 0 333 35051 0 


This book is intended for Spectrum owners who are competent 
BASIC programmers, but who are complete beginners in . 
computer graphics. It contains the elementary ideas and basic 
information about pixel and 2-D graphics that need to be 
understood before the more involved concepts of character and 
3-D graphics can be mastered. 


A software cassette containing the programs in the book is 
available. See inside the back of the book for details. 


Ian O. Angell and BrianJ. Jones are both in the Department of 
Computer Science, Royal Holloway College, University of 
London. 


